procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/repeat.el (repeat-echo-message): Bind message-log-max to nil.

Browse source 
Don't insert messages about repeatable keys in the *Messages* buffer.
This commit is contained in:
Juri Linkov 2021-11-15 19:53:29 +02:00
parent fe2ac7cb7c
commit b418aad85a
1 changed files with 14 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
lisp/repeat.el
View file

@ -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)