[Top][All Lists]
[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r100636: Don't issue kmacro hint if echo area is in use (Bug#3412).,
Chong Yidong <=