;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:52:53 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/repeat.el ;;; in Emacs version 23.4.1 ;;; 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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@50 Commands too dangerous to repeat with \[repeat]. (custom-declare-variable 'repeat-too-dangerous ''(kill-this-buffer) '(#$ . 536) :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 (#$ . 718)) #@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 '(#$ . 1060) :group 'convenience :type '(choice (const :tag "Repeat for all keys" t) (const :tag "Don't repeat" nil) (sexp :tag "Repeat for specific keys"))) #@71 If last repeated command was `self-insert-command', it inserted this. (defvar repeat-last-self-insert nil (#$ . 1850)) #@76 # key sequences read in Emacs session when `self-insert-command' repeated. (defvar repeat-num-input-keys-at-self-insert -1 (#$ . 1975)) #@67 # key sequences read in Emacs session when `repeat' last invoked. (defvar repeat-num-input-keys-at-repeat -1 (#$ . 2117)) #@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 (#$ . 2246)]) (put 'repeat-is-really-this-command 'byte-optimizer 'byte-compile-inline-expand) #@32 The previous repeated command. (defvar repeat-previous-repeated-command nil (#$ . 3012)) #@55 Number of self-insertions since last `undo-boundary'. (defvar repeat-undo-count nil (#$ . 3107)) #@610 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'. `repeat' ignores commands bound to input events. Hence the term "most recently executed command" shall be read as "most recently executed command not bound to an input event". (defalias 'repeat #[(repeat-arg) "\306=\203 \204\307\310!\210\202+\311=\203 \307\312!\210\202+\n>\203+\307\313\"\210\f(\204:)(*\314=\203F+\202N+\315*!>@,\316>\203j-@.\317\320.\"\210\321.!\210)\202\"(\204w\317\322\"\210\202\202(/\317\323(#\210\324=\203\362\f0Z\325X\203\2261\202\2412A@3\326\327\330\217)4\f04\331\326O4\332(!\33356\334\335!\2107\203\3247\336W\203\3167T7\202\324\337 \210\325756W\203\352\3404!\2105T\2115\202\326\334\341!\210+\202\"\342!8\337 \2108;\204\3438!\20399\344!\210*\202!\334\335!\210\345!\210\334\341!\210),\205]\326\314:*\3069\3257\346\216\347 \211;\242\206@;,\242\206H,)=\203U\306(!\210\2025)