From b418aad85a3d62aa427e7af72c96ca1d644dbc02 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Mon, 15 Nov 2021 19:53:29 +0200 Subject: [PATCH] * lisp/repeat.el (repeat-echo-message): Bind message-log-max to nil. Don't insert messages about repeatable keys in the *Messages* buffer. --- lisp/repeat.el | 27 ++++++++++++++------------- 1 file changed, 14 insertions(+), 13 deletions(-) diff --git a/lisp/repeat.el b/lisp/repeat.el index 96ea8a025010..45201ad1aa62 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)