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