From 8f8043160b10f68e6bf06a97acc5296e2c50a419 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Thu, 24 Jun 2010 15:16:33 -0400 Subject: [PATCH] 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). --- lisp/ChangeLog | 5 +++++ lisp/kmacro.el | 12 +++++++----- 2 files changed, 12 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8836a3866ff..23d7045532c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-06-24 Chong Yidong + + * kmacro.el (kmacro-call-macro): Don't issue hint message if the + echo area is in use (Bug#3412). + 2010-06-22 Glenn Morris * textmodes/texinfmt.el (texinfo-format-region) diff --git a/lisp/kmacro.el b/lisp/kmacro.el index c2bedf35339..439c7383223 100644 --- a/lisp/kmacro.el +++ b/lisp/kmacro.el @@ -642,11 +642,13 @@ others, use \\[kmacro-name-last-macro]." 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) -- 2.39.2