;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@26 Keymap for Autoarg mode.
(defvar autoarg-mode-map (byte-code "\300 \301\211\302W\203&\303\304\305\\!\306#\210\303\304\307\305\\D!\310#\210\211T\262
\202\210\303
\311\312#\210\207" [make-sparse-keymap 0 10 define-key vector 48 digit-argument control self-insert-command " " autoarg-terminate] 8) (#$ . 84))
(defvar autoarg-kp-digits (byte-code "\300\301\302\303\304\305\"!\"\207" [mapcar #[257 "\300\301\302\"!
B\207" [intern format "kp-%d"] 5 "\n\n(fn I)"] reverse number-sequence 0 9] 6))
#@85 Part of the numeric argument for the next command, like `digit-argument'.

(fn ARG)
(defalias 'autoarg-kp-digit-argument #[257 "	\236A
\250\203
\305_\306W\203
[\202
\\\210\2026
\307=\2035\211\306U\203.\307\2020\211[\210\2026\211\207" [last-command-event autoarg-kp-digits prefix-arg universal-argument-map overriding-terminal-local-map 10 0 -] 5 (#$ . 588) "P"])
#@29 Keymap for Autoarg-KP mode.
(defvar autoarg-kp-mode-map (byte-code "\300 \301\211\302W\203\303\304\305\"!\306\307!\310#\266\211T\262
\202\210\306
\311\312#\210\207" [make-sparse-keymap 0 10 intern format "kp-%d" define-key vector autoarg-kp-digit-argument [kp-subtract] negative-argument] 7) (#$ . 975))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable autoarg-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Autoarg mode is enabled.\nSee the `autoarg-mode' command\nfor a description of this minor mode." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group keyboard] 12)
#@1437 Toggle Autoarg mode, a global minor mode.

This is a minor mode.  If called interactively, toggle the `Autoarg
mode' mode.  If the prefix argument is positive, enable the mode, and
if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='autoarg-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

\<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].
`\[universal-argument] \[autoarg-terminate]' invokes the normal binding of \[autoarg-terminate] four times.

\{autoarg-mode-map}

(fn &optional ARG)
(defalias 'autoarg-mode #[256 "\301 \302\303\304=\203\305\303!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\303\"\305\303!\2038\303B\313\314\305\303!\203D\315\202E\316\"\210\317\320!\203m\321\303!\210\301 \203]\211\301 \232\203m\322\323\305\303!\203i\324\202j\325\326#\210\210\327 \210\305\303!\207" [global-minor-modes current-message set-default autoarg-mode toggle default-value 1 nil t boundp delq 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%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 1664) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar autoarg-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\210\315\316\317\320\321DD\322\323\324\325\326\327\330\331\332&\207" [autoarg-mode-map autoarg-mode-hook variable-documentation put "Hook run after entering or leaving `autoarg-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode autoarg-mode " Aarg" boundp custom-declare-variable autoarg-kp-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Autoarg-Kp mode is enabled.\nSee the `autoarg-kp-mode' command\nfor 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 :type boolean :group keyboard] 12)
#@769 Toggle Autoarg-KP mode, a global minor mode.

This is a minor mode.  If called interactively, toggle the `Autoarg-Kp
mode' mode.  If the prefix argument is positive, enable the mode, and
if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='autoarg-kp-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

\<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}

(fn &optional ARG)
(defalias 'autoarg-kp-mode #[256 "\303 \304\301\305=\203\306\301!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\301\"\306\301!\2038\301B	\203]\314\211\315W\203Y\316\317\320\"!\321\n\322!\323#\266\211T\262
\202=\210\202{\314\211\315W\203z\316\317\320\"!\321\n\322!\310#\266\211T\262
\202^\210\324\325\306\301!\203\207\326\202\210\327\"\210\330\331!\203\260\332\301!\210\303 \203\240\211\303 \232\203\260\333\334\306\301!\203\254\335\202\255\336\337#\210\210\340 \210\306\301!\207" [global-minor-modes autoarg-kp-mode universal-argument-map current-message set-default toggle default-value 1 nil t boundp delq 0 10 intern format "kp-%d" define-key vector autoarg-kp-digit-argument 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%s" "en" "dis" "" force-mode-line-update] 8 (#$ . 4858) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar autoarg-kp-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\207" [autoarg-kp-mode-map autoarg-kp-mode-hook variable-documentation put "Hook run after entering or leaving `autoarg-kp-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode autoarg-kp-mode " Aakp" boundp] 6)
#@249 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.

(fn N)
(defalias 'autoarg-terminate #[257 "\211\247\203\n\301
!c\207\302\303\304 !\211\205\305
!)\207" [autoarg-mode number-to-string nil key-binding this-single-command-keys call-interactively] 4 (#$ . 7183) "P"])
(provide 'autoarg)