repeat.elc

;ELC
;;; Compiled by cyd@ulysses on Sat Dec 15 22:25:57 2012
;;; from file /home/cyd/emacs/lisp/repeat.el
;;; in Emacs version 24.2.91.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable repeat-too-dangerous funcall function #[0 "\300\207" [(kill-this-buffer)] 1 "\n\n(fn)"] "Commands too dangerous to repeat with \\[repeat]." :group convenience :type (repeat function)] 8)
#@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 (#$ . 776))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable repeat-on-final-keystroke funcall function #[0 "\300\207" [t] 1 "\n\n(fn)"] "Allow `repeat' to re-execute for repeating lastchar of a key sequence.\nIf this variable is t, `repeat' determines what key sequence\nit was invoked by, extracts the final character of that sequence, and\nre-executes as many times as that final character is hit; so for example\nif `repeat' is bound to C-x z, typing C-x z z z repeats the previous command\n3 times.  If this variable is a sequence of characters, then re-execution\nonly occurs if the final character by which `repeat' was invoked is a\nmember of that sequence.  If this variable is nil, no re-execution occurs." :group convenience :type (choice (const :tag "Repeat for all keys" t) (const :tag "Don't repeat" nil) (sexp :tag "Repeat for specific keys"))] 8)
#@67 # key sequences read in Emacs session when `repeat' last invoked.
(defvar repeat-num-input-keys-at-repeat -1 (#$ . 2006))
#@564 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.

(fn)
(defalias 'repeat-is-really-this-command #[0 "	U\207" [repeat-num-input-keys-at-repeat num-input-keys] 2 (#$ . 2135)])
(put 'repeat-is-really-this-command 'byte-optimizer 'byte-compile-inline-expand)
#@32 The previous repeated command.
(defvar repeat-previous-repeated-command nil (#$ . 2905))
#@647 Repeat most recently executed command.
If REPEAT-ARG is non-nil (interactively, with a prefix argument),
supply a prefix argument to that command.  Otherwise, give the
command the same prefix argument it was given before, if any.

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".

(fn REPEAT-ARG)
(defalias 'repeat #[257 "\306=\203	\204\307\310!\210\202+\311=\203 \307\312!\210\202+\n>\203+\307\313\"\210\f\211\2049%\262
&\314=\203E'\202M'\315&!>@\316>\203c(@\317\320\"\210\321
!\266\202\240
\204o\317\322\"\210\202x
)\317\323#\210\324=\203\203`Sf'\325!\211;\204\221\326
!\203\233\327!\210)\202\237\330!\210\210\211\205\315\331\332 \333
\334!*\204\265\306\202\307*\335\336\337\340\334!\341\"\342\343\344&\262
#\210\211\262
!\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 indirect-function vectorp execute-kbd-macro call-interactively set-temporary-overlay-map make-sparse-keymap define-key vector make-byte-code 0 "\300\304\211\305\304!)\207" vconcat [repeat-message-function this-command real-this-command repeat call-interactively] 3 "\n\n(fn)" nil last-prefix-arg repeat-on-final-keystroke last-command-event command-history current-prefix-arg repeat-message-function] 15 (#$ . 3001) "P"])
#@96 Like `message' but displays with `repeat-message-function' if non-nil.

(fn FORMAT &rest ARGS)
(defalias 'repeat-message #[385 "\301\302#\203
!\202\303\304\"\207" [repeat-message-function apply format message "%s"] 6 (#$ . 5065)])
(provide 'repeat)