;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:21:06 2007 ;;; from file /home/cyd/emacs/lisp/repeat.el ;;; in Emacs version 22.0.99 ;;; 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 "`repeat.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@50 Commands too dangerous to repeat with \[repeat]. (custom-declare-variable 'repeat-too-dangerous ''(kill-this-buffer) '(#$ . 559) :group 'convenience :type '(repeat function)) #@288 If non-nil, function used by `repeat' command to say what it's doing. Message is something like "Repeating command glorp". To disable such messages, set this variable to `ignore'. To customize display, assign a function that takes one string as an arg and displays it however you want. (defvar repeat-message-function nil (#$ . 741)) #@572 Allow `repeat' to re-execute for repeating lastchar of a key sequence. If this variable is t, `repeat' determines what key sequence it was invoked by, extracts the final character of that sequence, and re-executes as many times as that final character is hit; so for example if `repeat' is bound to C-x z, typing C-x z z z repeats the previous command 3 times. If this variable is a sequence of characters, then re-execution only occurs if the final character by which `repeat' was invoked is a member of that sequence. If this variable is nil, no re-execution occurs. (custom-declare-variable 'repeat-on-final-keystroke 't '(#$ . 1083) :group 'convenience :type 'boolean) #@71 If last repeated command was `self-insert-command', it inserted this. (defvar repeat-last-self-insert nil (#$ . 1764)) #@76 # key sequences read in Emacs session when `self-insert-command' repeated. (defvar repeat-num-input-keys-at-self-insert -1 (#$ . 1889)) #@67 # key sequences read in Emacs session when `repeat' last invoked. (defvar repeat-num-input-keys-at-repeat -1 (#$ . 2031)) #@558 Return t if this command is happening because user invoked `repeat'. Usually, when a command is executing, the Emacs builtin variable `this-command' identifies the command the user invoked. Some commands modify that variable on the theory they're doing more good than harm; `repeat' does that, and usually does do more good than harm. However, like all do-gooders, sometimes `repeat' gets surprising results from its altruism. The value of this function is always whether the value of `this-command' would've been 'repeat if `repeat' hadn't modified it. (defalias 'repeat-is-really-this-command #[nil " U\207" [repeat-num-input-keys-at-repeat num-input-keys] 2 (#$ . 2160)]) (put 'repeat-is-really-this-command 'byte-optimizer 'byte-compile-inline-expand) #@32 The previous repeated command. (defvar repeat-previous-repeated-command nil (#$ . 2926)) #@432 Repeat most recently executed command. With prefix arg, apply new prefix arg to that command; otherwise, use the prefix arg that was used before (if any). This command is like the `.' command in the vi editor. If this command is invoked by a multi-character key sequence, it can then be repeated by repeating the final character of that sequence. This behavior can be modified by the global variable `repeat-on-final-keystroke'. (defalias 'repeat #[(repeat-arg) "\306=\203 \204\307\310!\210\311=\203\307\312!\210\n>\203%\307\313\"\210\f &\2044'&(\314=\203H)*=\205P)\202P)\315(!>@+\316>\203l,@-\317\320-\"\210\321-!\210)\202\372&\204y\317\322\"\210\202\204&.\317\323&#\210\324=\203\322\f/Z\325X\203\2300\202\2431A@2\326\327\330\217)3\f/3\331\326O3\332&!\3334545W\203\316\3343!\2104T\2114\202\272+\202\372\335!\2116;\204\343\3366!\203\355\337!\210)\202\371\340\341!\210\342!\210\340\343!\210)+\205\326(\344 +=\203\345 \210\306&!\210\2027C\2118))\207" [real-last-command repeat-previous-repeated-command repeat-too-dangerous this-command num-input-keys repeat-num-input-keys-at-repeat repeat error "There is nothing to repeat" mode-exit "real-last-command is mode-exit & can't be repeated" "Command %S too dangerous to repeat automatically" t listify-key-sequence (exit-minibuffer minibuffer-complete-and-exit self-insert-and-exit) repeat-message "Repeating %S" eval "Repeating command %S" "Repeating command %S %S" self-insert-command 1 nil (byte-code "@A{\211\207" [range repeat-last-self-insert] 2) ((error (error "%s %s %s" "repeat can't intuit what you" "inserted before auto-fill" "clobbered it, sorry"))) -1 prefix-numeric-value 0 repeat-self-insert indirect-function vectorp execute-kbd-macro run-hooks pre-command-hook call-interactively post-command-hook read-event undo-boundary repeat-arg last-prefix-arg repeat-on-final-keystroke last-command-char last-command-event repeat-repeat-char command-history repeat-command current-prefix-arg repeat-num-input-keys-at-self-insert repeat-last-self-insert buffer-undo-list range insertion i count indirect last-input-event unread-command-events] 5 (#$ . 3022) "P"]) (defalias 'repeat-self-insert #[(string) "\303\211 GW\205 H\304\305!\210)T\211\202)\207" [i string last-command-char 0 self-insert-command 1] 3]) #@72 Like `message' but displays with `repeat-message-function' if non-nil. (defalias 'repeat-message #[(format &rest args) "\304\300 # \203 \n!\202\302\305\n\")\207" [format args message repeat-message-function apply "%s"] 4 (#$ . 5396)]) (provide 'repeat)