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

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