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) (defun repeat-echo-message (keymap)
"Display available repeating keys in the echo area." "Display available repeating keys in the echo area."
(if keymap (let ((message-log-max nil))
(let ((message (repeat-echo-message-string keymap))) (if keymap
(if (current-message) (let ((message (repeat-echo-message-string keymap)))
(message "%s [%s]" (current-message) message) (if (current-message)
(message "%s" message))) (message "%s [%s]" (current-message) message)
(let ((message (current-message))) (message "%s" message)))
(when message (let ((message (current-message)))
(cond (when message
((string-prefix-p "Repeat with " message) (cond
(message nil)) ((string-prefix-p "Repeat with " message)
((string-search " [Repeat with " message) (message nil))
(message "%s" (replace-regexp-in-string ((string-search " [Repeat with " message)
" \\[Repeat with .*\\'" "" message)))))))) (message "%s" (replace-regexp-in-string
" \\[Repeat with .*\\'" "" message)))))))))
(defvar repeat-echo-mode-line-string (defvar repeat-echo-mode-line-string
(propertize "[Repeating...] " 'face 'mode-line-emphasis) (propertize "[Repeating...] " 'face 'mode-line-emphasis)