;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:51:54 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/repeat.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 "`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) '(#$ . 614) :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 (#$ . 796)) #@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 '(#$ . 1138) :group 'convenience :type 'boolean) #@71 If last repeated command was `self-insert-command', it inserted this. (defvar repeat-last-self-insert nil (#$ . 1819)) #@76 # key sequences read in Emacs session when `self-insert-command' repeated. (defvar repeat-num-input-keys-at-self-insert -1 (#$ . 1944)) #@67 # key sequences read in Emacs session when `repeat' last invoked. (defvar repeat-num-input-keys-at-repeat -1 (#$ . 2086)) #@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 (#$ . 2215)]) (put 'repeat-is-really-this-command 'byte-optimizer 'byte-compile-inline-expand) #@32 The previous repeated command. (defvar repeat-previous-repeated-command nil (#$ . 2981)) #@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\362#\204y\317\322\"\210\202\204#+\317\323##\210\324=\203\322\f,Z\325X\203\230-\202\243.A@/\326\327\330\217)0\f,0\331\326O0\332#!\3331212W\203\316\3340!\2101T\2111\202\272+\202\362\335!\2113;\204\343\3363!\203\355\337!\210)\202\361\340!\210)(\205\326%\341 (=\203 \342 \210\306#!\210\202\3724C\2115))\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 call-interactively 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 (#$ . 3077) "P"]) (defalias 'repeat-self-insert #[(string) "\303\303 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 (#$ . 5383)]) (provide 'repeat)