diff options
| author | Gabriel do Nascimento Ribeiro <gabriel376@hotmail.com> | 2021-08-24 11:23:49 -0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2021-08-25 20:10:28 +0300 |
| commit | 46ff443dc0657105213354be12f2d3b97a2538b2 (patch) | |
| tree | 68f677b1be525a0c30e458ff1d1fff7796cb2407 /lisp/repeat.el | |
| parent | 7db376e560448e61485ba054def8c82b21f33d6a (diff) | |
| download | emacs-46ff443dc0657105213354be12f2d3b97a2538b2.tar.gz | |
Handle nil messages in repeat-echo-message.
* lisp/repeat.el (repeat-echo-message): Handle cases where
'current-message' is nil (bug#50176).
Diffstat (limited to 'lisp/repeat.el')
| -rw-r--r-- | lisp/repeat.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/repeat.el b/lisp/repeat.el index 89488ddc98f..6c3ffec18fc 100644 --- a/lisp/repeat.el +++ b/lisp/repeat.el @@ -474,8 +474,9 @@ When Repeat mode is enabled, and the command symbol has the property named (if (current-message) (message "%s [%s]" (current-message) mess) (message mess))) - (when (string-search "Repeat with " (current-message)) - (message nil)))) + (and (current-message) + (string-search "Repeat with " (current-message)) + (message nil)))) (defvar repeat-echo-mode-line-string (propertize "[Repeating...] " 'face 'mode-line-emphasis) |