emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r100636: Don't issue kmacro hint if e


From: Chong Yidong
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r100636: Don't issue kmacro hint if echo area is in use (Bug#3412).
Date: Thu, 24 Jun 2010 15:16:33 -0400
User-agent: Bazaar (2.0.3)

------------------------------------------------------------
revno: 100636
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Thu 2010-06-24 15:16:33 -0400
message:
  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).
modified:
  lisp/ChangeLog
  lisp/kmacro.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-06-22 08:10:26 +0000
+++ b/lisp/ChangeLog    2010-06-24 19:16:33 +0000
@@ -1,3 +1,8 @@
+2010-06-24  Chong Yidong  <address@hidden>
+
+       * kmacro.el (kmacro-call-macro): Don't issue hint message if the
+       echo area is in use (Bug#3412).
+
 2010-06-22  Glenn Morris  <address@hidden>
 
        * textmodes/texinfmt.el (texinfo-format-region)

=== modified file 'lisp/kmacro.el'
--- a/lisp/kmacro.el    2010-01-13 08:35:10 +0000
+++ b/lisp/kmacro.el    2010-06-24 19:16:33 +0000
@@ -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)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]