mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/repeat.el (repeat-post-hook): Skip repeating in minibuffer (bug#47566).

Browse source 
(repeat-map)<defvar>: Add docstring.
This commit is contained in:
Juri Linkov 2021-04-08 21:43:35 +03:00
parent d365c947b5
commit 580c4c6510
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/repeat.el
View file

@ -348,7 +348,11 @@ For example, you can set it to <return> like `isearch-exit'."
:group 'convenience
:version "28.1")
;;;###autoload (defvar repeat-map nil)
;;;###autoload
(defvar repeat-map nil
"The value of the repeating 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'.")
;;;###autoload
(define-minor-mode repeat-mode
@ -388,8 +392,9 @@ When Repeat mode is enabled, and the command symbol has the property named
;; Exit when the last char is not among repeatable keys,
;; so e.g. `C-x u u' repeats undo, whereas `C-/ u' doesn't.
(when (or (lookup-key map (this-single-command-keys) nil)
prefix-command-p)
(when (and (zerop (minibuffer-depth)) ; avoid remapping in prompts
(or (lookup-key map (this-command-keys-vector))
prefix-command-p))
(when (and repeat-keep-prefix (not prefix-command-p))
(setq prefix-arg current-prefix-arg))