# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1277406993 14400
# Node ID 87285390c61effc6a94f9363a4864afc3351f92a
# Parent  3465b68cf225ca5b67a8e6de2bf39ac07cc0380a
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).

diff -r 3465b68cf225 -r 87285390c61e lisp/ChangeLog
--- 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)
diff -r 3465b68cf225 -r 87285390c61e lisp/kmacro.el
--- 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)