;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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) (#$ . 408)) (defvar autoarg-kp-digits (byte-code "\303\304\305 \nW\203\306\307\310 \"! BB 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\n\307U\203.\310\2020\n[\2026\n) \211 \207" [last-command-event autoarg-kp-digits digit arg prefix-arg universal-argument-map 10 0 - overriding-terminal-local-map] 3 (#$ . 918) "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) (#$ . 1302)) #@106 Non-nil if Autoarg mode is enabled. See the `autoarg-mode' command for a description of this minor mode. (custom-declare-variable 'autoarg-mode nil '(#$ . 1649) :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. \ 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\305 \306=\203\307\305!?\202\310 !\311V\"\210\312\313\307\305!\203%\314\202&\315\"\210\316\317!\203Q\320\305!\210\303 \203>\303 \232\203Q\321\322\323\307\305!\203L\324\202M\325\n#\210))\326 \210\307\305!\207" [#1=#:last-message arg local current-message set-default autoarg-mode toggle default-value 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%s" "en" "dis" force-mode-line-update] 4 (#$ . 1918) (list (or current-prefix-arg 'toggle))]) (defvar autoarg-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\211%\210\311\312\310\313\314\315\316\317\320\321\322\323& \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.)" add-minor-mode autoarg-mode " Aarg" nil custom-declare-variable autoarg-kp-mode "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 :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. \ 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\302 \310=\203\311\302!?\202\312 !\313V\"\210\n\203C\314\313 \fW\203?\315\316\317 \"!\320!\321 !\322#\210) T\211\202\"*\202f\314\313 \fW\203e\315\316\317 \"!\320!\321 !\323#\210) T\211\202H*\324\325\311\302!\203r\326\202s\327\"\210\330\331!\203\240\332\302!\210\306 \203\213\306 \232\203\240\333\"\334\335\311\302!\203\232\336\202\233\337\"#\210))\340 \210\311\302!\207" [#1=#:last-message arg autoarg-kp-mode i --dotimes-limit-- sym current-message set-default toggle default-value 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%s" "en" "dis" force-mode-line-update universal-argument-map local] 5 (#$ . 4425) (list (or current-prefix-arg 'toggle))]) (defvar autoarg-kp-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\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.)" 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 (#$ . 6149) "P"]) (provide 'autoarg)