diff options
| -rw-r--r-- | lisp/repeat.el | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/lisp/repeat.el b/lisp/repeat.el index 96ea8a02501..45201ad1aa6 100644 --- a/lisp/repeat.el +++ b/lisp/repeat.el @@ -481,19 +481,20 @@ See `describe-repeat-maps' for a list of all repeatable commands." (defun repeat-echo-message (keymap) "Display available repeating keys in the echo area." - (if keymap - (let ((message (repeat-echo-message-string keymap))) - (if (current-message) - (message "%s [%s]" (current-message) message) - (message "%s" message))) - (let ((message (current-message))) - (when message - (cond - ((string-prefix-p "Repeat with " message) - (message nil)) - ((string-search " [Repeat with " message) - (message "%s" (replace-regexp-in-string - " \\[Repeat with .*\\'" "" message)))))))) + (let ((message-log-max nil)) + (if keymap + (let ((message (repeat-echo-message-string keymap))) + (if (current-message) + (message "%s [%s]" (current-message) message) + (message "%s" message))) + (let ((message (current-message))) + (when message + (cond + ((string-prefix-p "Repeat with " message) + (message nil)) + ((string-search " [Repeat with " message) + (message "%s" (replace-regexp-in-string + " \\[Repeat with .*\\'" "" message))))))))) (defvar repeat-echo-mode-line-string (propertize "[Repeating...] " 'face 'mode-line-emphasis) |