| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/repeat.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:29 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/repeat.el ;;; in Emacs version 24.3.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 (#$ . 824)) (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 (#$ . 2054)) #@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 (#$ . 2183)]) (put 'repeat-is-really-this-command 'byte-optimizer 'byte-compile-inline-expand) #@32 The previous repeated command. (defvar repeat-previous-repeated-command nil (#$ . 2953)) #@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 (#$ . 3049) "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 (#$ . 5113)]) (provide 'repeat)