;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(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 ""] "Commands too dangerous to repeat with \\[repeat]." :group convenience :type (repeat function)] 8)
#@372 If non-nil, function used by `repeat' command to say what it's doing.
Message is something like "Repeating command glorp".
A value of `ignore' will disable such messages.  To customize
display, assign a function that takes one string as an arg and
displays it however you want.
If this variable is nil, the normal `message' function will be
used to display the messages.
(defvar repeat-message-function nil (#$ . 351))
(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 ""] "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 (#$ . 1657))
#@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 #[0 "	U\207" [repeat-num-input-keys-at-repeat num-input-keys] 2 (#$ . 1786)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put repeat-is-really-this-command speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@32 The previous repeated command.
(defvar repeat-previous-repeated-command nil (#$ . 2624))
#@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	\307\267\202\310\311!\210\202'\310\312!\210\202'\n>\203'\310\313\"\210\f\211\2045\262
\314=\203A \202I \315!>@!@@=\203b!@\316\317\"\210\320
!\266\202\240
\204n\316\321\"\210\202w
\"\316\322#\210\323=\203\202`Sf \324!\211;\204\220\325
!\203\233\326!\210)\210\202\240\327!\266\211\205\303\330\331 \332
\333!#\204\265\306\202\275#\334\335\"\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 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 14 mode-exit 21)) error "There is nothing to repeat" "`last-repeatable-command' is `mode-exit' and can't be repeated" "Command %S too dangerous to repeat automatically" t listify-key-sequence repeat-message "Repeating %S" eval "Repeating command %S" "Repeating command %S %S" self-insert-command indirect-function vectorp execute-kbd-macro call-interactively set-transient-map make-sparse-keymap define-key vector make-closure #[0 "\300\304\211\305\304!)\207" [V0 repeat-message-function this-command real-this-command repeat call-interactively] 3 nil nil] last-prefix-arg repeat-on-final-keystroke last-command-event command-history current-prefix-arg repeat-message-function] 11 (#$ . 2720) "P"])
#@96 Like `message' but displays with `repeat-message-function' if non-nil.

(fn FORMAT &rest ARGS)
(defalias 'repeat-message #[385 "\301\302#\203

!\207\303\304\"\207" [repeat-message-function apply format message "%s"] 6 (#$ . 4768)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\210\300\314\302\303\315DD\316\306\317\310\311\312\313&	\207" [custom-declare-variable repeat-exit-key funcall function #[0 "\300\207" [nil] 1 #1=""] "Key that stops the modal repeating of keys in sequence.\nFor example, you can set it to <return> like `isearch-exit'." :type (choice (const :tag "No special key to exit repeating sequence" nil) (key-sequence :tag "Key that exits repeating sequence")) :group convenience :version "28.1" repeat-exit-timeout #[0 "\300\207" [nil] 1 #1#] "Break the repetition chain of keys after specified timeout.\nWhen a number, exit the transient repeating mode after idle time\nof the specified number of seconds.\nYou can also set the property `repeat-exit-timeout' on the command symbol.\nThis property can override the value of this variable." (choice (const :tag "No timeout to exit repeating sequence" nil) (number :tag "Timeout in seconds to exit repeating"))] 10)
#@73 Timer activated after the last key typed in the repeating key sequence.
(defvar repeat-exit-timer nil (#$ . 5982))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\210\300\314\302\303\315DD\316\306\307\310\311\312\313&	\210\300\317\302\303\320DD\321\306\322\310\311\312\313&	\207" [custom-declare-variable repeat-keep-prefix funcall function #[0 "\300\207" [nil] 1 #1=""] "Whether to keep the prefix arg of the previous command when repeating." :type boolean :group convenience :version "28.1" repeat-check-key #[0 "\300\207" [t] 1 #1#] "Whether to check that the last key exists in the repeat map.\nWhen non-nil and the last typed key (with or without modifiers)\ndoesn't exist in the keymap attached by the `repeat-map' property,\nthen don't activate that keymap for the next command.  So only the\nsame keys among repeatable keys are allowed in the repeating sequence.\nFor example, with a non-nil value, only `C-x u u' repeats undo,\nwhereas `C-/ u' doesn't.\n\nYou can also set the property `repeat-check-key' on the command symbol.\nThis property can override the value of this variable.\nWhen the variable value is non-nil, but the property value is `no',\nthen don't check the last key.  Also when the variable value is nil,\nbut the property value is `t', then check the last key." repeat-echo-function #[0 "\300\207" [repeat-echo-message] 1 #1#] "Function to display a hint about available keys.\nFunction is called after every repeatable command with one argument:\na repeating map, or nil after deactivating the transient repeating mode." (choice (const :tag "Show hints in the echo area" repeat-echo-message) (const :tag "Show indicator in the mode line" repeat-echo-mode-line) (const :tag "No visual feedback" ignore) (function :tag "Function"))] 10)
#@53 Non-nil when the repeating transient map is active.
(defvar repeat-in-progress nil (#$ . 7769))
#@198 The value of the repeating transient map for the next command.
A command called from the map can set it again to the same map when
the map can't be set on the command symbol property `repeat-map'.
(defvar repeat-map nil (#$ . 7872))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable repeat-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Repeat mode is enabled.\nSee the `repeat-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `repeat-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group convenience] 12)
#@798 Toggle Repeat mode.
When Repeat mode is enabled, and the command symbol has the property named
`repeat-map', this map is activated temporarily for the next command.
See `describe-repeat-maps' for a list of all repeatable commands.

This is a minor mode.  If called interactively, toggle the `Repeat
mode' mode.  If the prefix argument is positive, enable the mode, and
if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='repeat-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

(fn &optional ARG)
(defalias 'repeat-mode #[256 "\303 \304\301\305=\203\306\301!?\202!\247\203 \307W\203 \310\202!\311\"\210\312\300!\2038\313\301\"\306\301!\2038\301B	\204D\314\315\316\"\210\202_\317\315\316\"\210\310C\320\321\n\322\323\"#\324\325G\326\242!G#\266\327\330\306\301!\203k\331\202l\332\"\210\333\334!\203\224\335\301!\210\303 \203\204\211\303 \232\203\224\324\336\306\301!\203\220\337\202\221\340\321#\210\210\341 \210\306\301!\207" [global-minor-modes repeat-mode obarray current-message set-default toggle default-value 1 nil t boundp delq remove-hook post-command-hook repeat-post-hook add-hook all-completions "" make-closure #[257 "\301
!\205\211\302N\205\300
\302N\300\242B\240\207" [V0 commandp repeat-map] 4 "\n\n(fn S)"] message "Repeat mode is enabled for %d commands and %d keymaps; see `describe-repeat-maps'" delete-dups run-hooks repeat-mode-hook repeat-mode-on-hook repeat-mode-off-hook called-interactively-p any customize-mark-as-set "Repeat mode %sabled%s" "en" "dis" force-mode-line-update] 9 (#$ . 8634) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar repeat-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [repeat-mode-map repeat-mode-hook variable-documentation put "Hook run after entering or leaving `repeat-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode repeat-mode boundp] 6)
#@28 Previous minibuffer state.
(defvar repeat--prev-mb '(0) (#$ . 11064))
#@17 

(fn PROPERTY)
(defalias 'repeat--command-property #[257 "9\203
N\206	9\205	
N\207" [this-command real-this-command] 3 (#$ . 11140)])
#@80 Check if the last key is suitable to activate the repeating MAP.

(fn KEY MAP)
(defalias 'repeat-check-key #[514 "\301\300!\211\302=?\205\211\206\211?\206'\303\304!\"\206'\303\304\305!!\"\207" [repeat-check-key repeat--command-property no lookup-key vector event-basic-type] 9 (#$ . 11289)])
#@74 Function run after commands to set transient keymap for repeatable keys.
(defalias 'repeat-post-hook #[0 "\306	\203\234\n\206\307\302!\211\203\233\2119\203!\310
!\203!\211J\262
\311
!\312 @W\2043\fA=\203\232
\203<\203\232\313\"\203\232\204N
!\210\203Z\314
\315#\210
\203g\204g\316\317
!\203y\320!\210\306\307\321!\211\322=?\205\211\211\206\211\211\203\230\323
\306\324\325\"#\266\210\210\306\312 \fB\211\205\275?\205\275\203\271\320!\210\306\306!\207" [repeat-in-progress repeat-mode repeat-map repeat--prev-mb current-minibuffer-command repeat-keep-prefix nil repeat--command-property boundp copy-keymap minibuffer-depth repeat-check-key define-key ignore t set-transient-map cancel-timer repeat-exit-timeout no run-with-idle-timer make-closure #[0 "\303\300 \210\n\303!\207" [V0 repeat-in-progress repeat-echo-function nil] 2] prefix-arg last-command-event repeat-echo-function repeat-exit-key current-prefix-arg repeat-exit-timer] 12 (#$ . 11600)])
#@61 Return a string with a list of repeating keys.

(fn KEYMAP)
(defalias 'repeat-echo-message-string #[257 "\301C\302\303\304\"\"\210\305\306\307\310\242\311#\203\312\313\314!\"\202 \315#\207" [repeat-exit-key nil map-keymap make-closure #[514 "\300\300\242B\240\207" [V0] 5 "\n\n(fn KEY _)"] format-message "Repeat with %s%s" mapconcat #[257 "\300\301!!\207" [key-description vector] 4 "\n\n(fn KEY)"] ", " format ", or exit with %s" key-description ""] 9 (#$ . 12629)])
#@65 Display available repeating keys in the echo area.

(fn KEYMAP)
(defalias 'repeat-echo-message #[257 "\301\211\203 \302
!\303 \203\304\305\303 #\202\304\306\"\262
\202D\303 \211\205B\307\310\"\2033\304\301!\202B\311\312\"\205B\304\306\313\314\315#\"\262
)\207" [message-log-max nil repeat-echo-message-string current-message message "%s [%s]" "%s" string-prefix-p "Repeat with " string-search " [Repeat with " replace-regexp-in-string " \\[Repeat with .*\\'" ""] 8 (#$ . 13114)])
#@54 String displayed in the mode line in repeating mode.
(defvar repeat-echo-mode-line-string (propertize "[Repeating...] " 'face 'mode-line-emphasis) (#$ . 13616))
#@61 Display the repeat indicator in the mode line.

(fn KEYMAP)
(defalias 'repeat-echo-mode-line #[257 "\211\203\302\236?\205\303\300\302	D\"\207\304\305!\207" [mode-line-modes repeat-echo-mode-line-string repeat-in-progress add-to-list force-mode-line-update t] 5 (#$ . 13783)])
#@98 Describe mappings of commands repeatable by symbol property `repeat-map'.
Used in `repeat-mode'.
(defalias 'describe-repeat-maps #[0 "\306\307!\210\310\311C\312\313!\"\210\314C\315\316\317\320\"#\210	\314\211\223\210\321\nB\322B\323 \324 \325
!\211\314\211r
q\210\326\327!\210\330\242\331\"\211\205\213\211@\326\332\333@\"!\210\330
A\334\"\211\203\211@\335
!@JC\336\337\340\"\206l\340\3418\"\342#\326\332\343#!\266
A\266\202\202P\210\326\344!\210
A\266\202\202=\262
)\262
rq\210\345\314\"\262)\346\347!\203\250\347\"\202\251\211)\266\204*\207" [obarray help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame standard-output require help-fns help-setup-xref describe-repeat-maps called-interactively-p interactive nil all-completions "" make-closure #[257 "\301
!\2050\211\302N\2050\211\302N\211\300\242\236
AB
\203\"

\241\210\202.\300B\211\262\300\242B\240\210\266\202\207" [V0 commandp repeat-map] 7 "\n\n(fn S)"] help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup princ "A list of keymaps used by commands with the symbol property `repeat-map'.\n\n" sort #[514 "
@
@\231\207" [] 4 "\n\n(fn A B)"] format-message "`%s' keymap is repeatable by these commands:\n" string-lessp help-fns--analyze-function mapconcat #[257 "\300\301\302!\"\207" [format-message "`%s'" key-description] 5 "\n\n(fn KEY)"] where-is-internal 3 ", " " `%s' (bound to %s)\n" "\n" temp-buffer-window-show functionp help-window-setup] 17 (#$ . 14070) nil])
(provide 'repeat)