Mercurial > emacs
changeset 109042:87285390c61e
Don't issue kmacro hint if echo area is in use (Bug#3412).
* lisp/kmacro.el (kmacro-call-macro): Don't issue hint message if the
echo area is in use (Bug#3412).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Thu, 24 Jun 2010 15:16:33 -0400 |
| parents | 3465b68cf225 |
| children | 50dd8d98f75b |
| files | lisp/ChangeLog lisp/kmacro.el |
| diffstat | 2 files changed, 12 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Jun 24 18:12:35 2010 +0200 +++ b/lisp/ChangeLog Thu Jun 24 15:16:33 2010 -0400 @@ -1,3 +1,8 @@ +2010-06-24 Chong Yidong <cyd@stupidchicken.com> + + * kmacro.el (kmacro-call-macro): Don't issue hint message if the + echo area is in use (Bug#3412). + 2010-06-22 Glenn Morris <rgm@gnu.org> * textmodes/texinfmt.el (texinfo-format-region)
--- a/lisp/kmacro.el Thu Jun 24 18:12:35 2010 +0200 +++ b/lisp/kmacro.el Thu Jun 24 15:16:33 2010 -0400 @@ -642,11 +642,13 @@ kmacro-call-repeat-key))) (setq repeat-key-str (format-kbd-macro (vector repeat-key) nil)) (while repeat-key - (message "(Type %s to repeat macro%s)" - repeat-key-str - (if (and kmacro-call-repeat-with-arg - arg (> arg 1)) - (format " %d times" arg) "")) + ;; Issue a hint to the user, if the echo area isn't in use. + (unless (current-message) + (message "(Type %s to repeat macro%s)" + repeat-key-str + (if (and kmacro-call-repeat-with-arg + arg (> arg 1)) + (format " %d times" arg) ""))) (if (equal repeat-key (read-event)) (progn (clear-this-command-keys t)