;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:36:43 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/autoarg.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`autoarg.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@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 #1=#:--dotimes-temp--97269 make-sparse-keymap 10 0 define-key vector 48 digit-argument control self-insert-command " " autoarg-terminate] 7) (#$ . 616)) (byte-code "\304B\305\304!\204+\306\307\310\nW\203(\311\312\313\n\"!\nB B\nT\211\202 +\306\207" [current-load-list alist i #:--dotimes-temp--97270 autoarg-kp-digits boundp 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-char 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 (#$ . 1187) "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 #1=#:--dotimes-temp--97271 sym make-sparse-keymap 10 0 intern format "kp-%d" define-key vector autoarg-kp-digit-argument [kp-subtract] negative-argument] 5) (#$ . 1634)) #@215 Non-nil if Autoarg mode is enabled. See the command `autoarg-mode' for a description of this minor-mode. Setting this variable directly does not take effect; use either \[customize] or the function `autoarg-mode'. (custom-declare-variable 'autoarg-mode 'nil '(#$ . 1990) :set (lambda (symbol value) (funcall symbol (or value 0))) :initialize 'custom-initialize-default :group 'autoarg :type 'boolean :require 'autoarg) #@904 Toggle Autoarg minor mode globally. With ARG, turn Autoarg mode on if ARG is positive, off otherwise. \ In Autoarg mode digits are bound to `digit-argument' -- i.e. they supply prefix arguments as C-DIGIT and M-DIGIT normally do -- and 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) "\203\f\302!\303V\202 ?\304\305 \203\306\202\307\"\210t\203-\310\311 \203*\312\202+\313\"\210\314 \210 \207" [arg autoarg-mode prefix-numeric-value 0 run-hooks autoarg-mode-hook autoarg-mode-on-hook autoarg-mode-off-hook message "Autoarg mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 2416) nil]) #@49 Hook run at the end of function `autoarg-mode'. (custom-declare-variable 'autoarg-mode-hook 'nil '(#$ . 3687) :group 'autoarg :type 'hook) (byte-code "\304\302\305#\210 \203\n\203\204\306 \307\"\210\304\207" [autoarg-mode-map load-file-name autoarg-mode purify-flag add-minor-mode #(" Aarg" 0 5 (local-map (keymap (header-line keymap (down-mouse-3 . mode-line-mode-menu-1)) (mode-line keymap (down-mouse-3 . mode-line-mode-menu-1))) help-echo "mouse-3: minor mode menu")) eval-after-load (autoarg-mode 1)] 4) #@224 Non-nil if Autoarg-Kp mode is enabled. See the command `autoarg-kp-mode' for a description of this minor-mode. Setting this variable directly does not take effect; use either \[customize] or the function `autoarg-kp-mode'. (custom-declare-variable 'autoarg-kp-mode 'nil '(#$ . 4211) :set (lambda (symbol value) (funcall symbol (or value 0))) :initialize 'custom-initialize-default :group 'autoarg-kp :type 'boolean :require 'autoarg) #@253 Toggle Autoarg-KP minor mode globally. With ARG, turn Autoarg mode on if ARG is positive, off otherwise. \ This is similar to \[autoarg-mode] but rebinds the keypad keys `kp-1' &c to supply digit arguments. \{autoarg-kp-mode-map} (defalias 'autoarg-kp-mode #[(&optional arg) "\203\f\306!\307V\202 ?\211\2038\310\307\nW\2034\311\312\313\n\"!\314 \315\f!\316#\210)\nT\211\202*\202\\\310\307\nW\203[\311\312\313\n\"!\314 \315\f!\317#\210)\nT\211\202>*\320\321 \203f\322\202g\323\"\210t\203z\324\325 \203w\326\202x\327\"\210\330 \210 \207" [arg autoarg-kp-mode i #1=#:--dotimes-temp--97274 sym universal-argument-map 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 message "Autoarg-Kp mode %sabled" "en" "dis" force-mode-line-update #2=#:--dotimes-temp--97275] 6 (#$ . 4652) nil]) #@52 Hook run at the end of function `autoarg-kp-mode'. (custom-declare-variable 'autoarg-kp-mode-hook 'nil '(#$ . 5615) :group 'autoarg-kp :type 'hook) (byte-code "\304\302\305#\210 \203\n\203\204\306 \307\"\210\304\207" [autoarg-kp-mode-map load-file-name autoarg-kp-mode purify-flag add-minor-mode #(" Aakp" 0 5 (local-map (keymap (header-line keymap (down-mouse-3 . mode-line-mode-menu-1)) (mode-line keymap (down-mouse-3 . mode-line-mode-menu-1))) help-echo "mouse-3: minor mode menu")) eval-after-load (autoarg-kp-mode 1)] 4) #@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 (#$ . 6157) "P"]) (provide 'autoarg)