;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:09:45 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/repeat.el
;;; in Emacs version 24.0.50.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) '(#$ . 540) :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 (#$ . 722))
#@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 '(#$ . 1064) :group 'convenience :type 'boolean)
#@71 If last repeated command was `self-insert-command', it inserted this.
(defvar repeat-last-self-insert nil (#$ . 1745))
#@76 # key sequences read in Emacs session when `self-insert-command' repeated.
(defvar repeat-num-input-keys-at-self-insert -1 (#$ . 1870))
#@67 # key sequences read in Emacs session when `repeat' last invoked.
(defvar repeat-num-input-keys-at-repeat -1 (#$ . 2012))
#@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 (#$ . 2141)])
(put 'repeat-is-really-this-command 'byte-optimizer 'byte-compile-inline-expand)
#@32 The previous repeated command.
(defvar repeat-previous-repeated-command nil (#$ . 2907))
#@55 Number of self-insertions since last `undo-boundary'.
(defvar repeat-undo-count nil (#$ . 3002))
#@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)<C\211=*)\207" [last-repeatable-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 "last-repeatable-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 run-hooks pre-command-hook 20 undo-boundary repeat-self-insert post-command-hook indirect-function vectorp execute-kbd-macro call-interactively ((byte-code "\301\211\207" [repeat-undo-count nil] 2)) read-key repeat-arg last-prefix-arg repeat-on-final-keystroke 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 repeat-undo-count indirect real-last-command undo-inhibit-record-point evt last-input-event unread-command-events] 5 (#$ . 3106) "P"])
(defalias 'repeat-self-insert #[(string) "\303\211	GW\205	H\304\305!\210)T\211\202)\207" [i string last-command-event 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 (#$ . 5906)])
(provide 'repeat)
