diff options
| author | Gabriel do Nascimento Ribeiro <gabriel376@hotmail.com> | 2021-08-23 19:05:58 -0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2021-08-24 09:44:05 +0300 |
| commit | 0c640b82f0b3d9a06156a61af0aeec11a2f98ba0 (patch) | |
| tree | e926f1e209386480b3233b69dc96c78ae5013d6c /lisp/repeat.el | |
| parent | ca3e4b3072884ab157328a4f2a4cf5a12b5d367f (diff) | |
| download | emacs-0c640b82f0b3d9a06156a61af0aeec11a2f98ba0.tar.gz | |
Fix to clear echo-area after repeat-exit-timeout.
* lisp/repeat.el (repeat-echo-message): Use 'string-match-p'
to handle cases where echo-area contains other messages (bug#50176).
Diffstat (limited to 'lisp/repeat.el')
| -rw-r--r-- | lisp/repeat.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/repeat.el b/lisp/repeat.el index cec3cb643a1..054eacf8ec9 100644 --- a/lisp/repeat.el +++ b/lisp/repeat.el @@ -474,7 +474,7 @@ 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-prefix-p "Repeat with " (current-message)) + (when (string-match-p "Repeat with " (current-message)) (message nil)))) (defvar repeat-echo-mode-line-string |