WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp
Viewing File: /usr/share/emacs/24.3/lisp/autoarg.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:48:01 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/autoarg.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@26 Keymap for Autoarg mode.
(defvar autoarg-mode-map (byte-code "\303 \304\305	\nW\203*\306\307\310	\\!\311#\210\306\307\312\310	\\D!\313#\210	T\211\202*\306\314\315#\210)\207" [map i --dotimes-limit-- make-sparse-keymap 10 0 define-key vector 48 digit-argument control self-insert-command " " autoarg-terminate] 7) (#$ . 550))
(defvar autoarg-kp-digits (byte-code "\303\304\305	\nW\203\306\307\310	\"!	BB	T\211\202+\207" [alist i --dotimes-limit-- nil 10 0 intern format "kp-%d"] 5))
#@75 Part of the numeric argument for the next command, like `digit-argument'.
(defalias 'autoarg-kp-digit-argument #[(arg) "	\236A\250\203\306_\307W\203\n[\202\n\\\2026\310=\2034\311\n!\203.\310\2020\n[\2026\n)\312 G\211\f\207" [last-command-event autoarg-kp-digits digit arg prefix-arg universal-argument-num-events 10 0 - zerop this-command-keys universal-argument-map overriding-terminal-local-map] 3 (#$ . 1060) "P"])
#@29 Keymap for Autoarg-KP mode.
(defvar autoarg-kp-mode-map (byte-code "\304 \305\306	\nW\203$\307\310\311	\"!\312\313!\314#\210)	T\211\202*\312\315\316#\210)\207" [map i --dotimes-limit-- sym make-sparse-keymap 10 0 intern format "kp-%d" define-key vector autoarg-kp-digit-argument [kp-subtract] negative-argument] 5) (#$ . 1508))
#@106 Non-nil if Autoarg mode is enabled.
See the command `autoarg-mode' for a description of this minor mode.
(custom-declare-variable 'autoarg-mode nil '(#$ . 1855) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'keyboard :type 'boolean)
#@1009 Toggle Autoarg mode, a global minor mode.
With a prefix argument ARG, enable Autoarg mode if ARG is
positive, and disable it otherwise.  If called from Lisp, enable
the mode if ARG is omitted or nil.

\<autoarg-mode-map>
In Autoarg mode, digits are bound to `digit-argument', i.e. they
supply prefix arguments as C-DIGIT and M-DIGIT normally do.
Furthermore, C-DIGIT inserts DIGIT.
\[autoarg-terminate] terminates the prefix sequence and inserts
the digits of the autoarg sequence into the buffer.
Without a numeric prefix arg, the normal binding of \[autoarg-terminate]
is invoked, i.e. what it would be with Autoarg mode off.

For example:
`6 9 \[autoarg-terminate]' inserts `69' into the buffer, as does `C-6 C-9'.
`6 9 a' inserts 69 `a's into the buffer.
`6 9 \[autoarg-terminate] \[autoarg-terminate]' inserts `69' into the buffer and
then invokes the normal binding of \[autoarg-terminate].
`C-u \[autoarg-terminate]' invokes the normal binding of \[autoarg-terminate] four times.

\{autoarg-mode-map}
(defalias 'autoarg-mode #[(&optional arg) "\303 	\304=\203\n?\202\305	!\306V\307\310\n\203\311\202\312\"\210\313\314!\203D\315\302!\210\303 \2037\303 \232\203D\316\317\n\203A\320\202B\321\"\210)\322 \210\n\207" [#1=#:last-message arg autoarg-mode current-message toggle prefix-numeric-value 0 run-hooks autoarg-mode-hook autoarg-mode-on-hook autoarg-mode-off-hook called-interactively-p any customize-mark-as-set message "Autoarg mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 2124) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\211%\210\305\306\304\307\310\311\312\313\314\315\316\317&\207" [autoarg-mode-map add-minor-mode autoarg-mode " Aarg" nil custom-declare-variable autoarg-kp-mode "Non-nil if Autoarg-Kp mode is enabled.\nSee the command `autoarg-kp-mode' for a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `autoarg-kp-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group keyboard :type boolean] 12)
#@356 Toggle Autoarg-KP mode, a global minor mode.
With a prefix argument ARG, enable Autoarg-KP mode if ARG is
positive, and disable it otherwise.  If called from Lisp, enable
the mode if ARG is omitted or nil.

\<autoarg-kp-mode-map>
This is similar to `autoarg-mode' but rebinds the keypad keys
`kp-1' etc. to supply digit arguments.

\{autoarg-kp-mode-map}
(defalias 'autoarg-kp-mode #[(&optional arg) "\306 	\307=\203\n?\202\310	!\311V\211\203>\312\311\fW\203:\313\314\315\"!\316\317
!\320#\210)T\211\202*\202a\312\311\fW\203`\313\314\315\"!\316\317
!\321#\210)T\211\202C*\322\323\n\203k\324\202l\325\"\210\326\327!\203\221\330\302!\210\306 \203\204\306 \232\203\221\331\332\n\203\216\333\202\217\334\"\210)\335 \210\n\207" [#1=#:last-message arg autoarg-kp-mode i --dotimes-limit-- sym current-message toggle prefix-numeric-value 0 10 intern format "kp-%d" define-key vector autoarg-kp-digit-argument nil run-hooks autoarg-kp-mode-hook autoarg-kp-mode-on-hook autoarg-kp-mode-off-hook called-interactively-p any customize-mark-as-set message "Autoarg-Kp mode %sabled" "en" "dis" force-mode-line-update universal-argument-map] 5 (#$ . 4252) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\211%\207" [autoarg-kp-mode-map add-minor-mode autoarg-kp-mode " Aakp" nil] 6)
#@241 Maybe terminate a digit prefix sequence.
With a non-negative numeric prefix arg, insert the digits comprising
the arg into the current buffer.  Otherwise use the binding of the key
which invoked this function, excluding the Autoarg keymap.
(defalias 'autoarg-terminate #[(n) "\247\203\n\303!c\207\304\305\306 !\211\205\307\n!*\207" [n autoarg-mode binding number-to-string nil key-binding this-single-command-keys call-interactively] 3 (#$ . 5587) "P"])
(provide 'autoarg)
F1l3 Manager
