[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 580c4c6 1/2: * lisp/repeat.el (repeat-post-hook): Skip repeating
From: |
Juri Linkov |
Subject: |
master 580c4c6 1/2: * lisp/repeat.el (repeat-post-hook): Skip repeating in minibuffer (bug#47566). |
Date: |
Thu, 8 Apr 2021 14:55:47 -0400 (EDT) |
branch: master
commit 580c4c6510fca918610c9c0f440a7d21c4702f16
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>
* lisp/repeat.el (repeat-post-hook): Skip repeating in minibuffer
(bug#47566).
(repeat-map)<defvar>: Add docstring.
---
lisp/repeat.el | 11 ++++++++---
1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/lisp/repeat.el b/lisp/repeat.el
index 1830bcc..8cbfaa0 100644
--- a/lisp/repeat.el
+++ b/lisp/repeat.el
@@ -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))