* lisp/kmacro.el (kmacro-call-macro): Restore repeat message. (Bug#11817)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2233642e5b4c8fc3e8a96056fb3dc695c0c9ec39..24ce227699114d18e0a96d58cc7b7a1619f34a42 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2012-07-06  Glenn Morris  <rgm@gnu.org>
 
+       * kmacro.el (kmacro-call-macro): Restore repeat message.  (Bug#11817)
+
        * files.el (toggle-read-only): Restrict message to interactive use.
 
 2012-07-06  Michael Albinus  <michael.albinus@gmx.de>

diff --git a/lisp/kmacro.el b/lisp/kmacro.el
index ffc97085a694862b2babddf9a85849a8f62dd439..6ecac2cdf284c9552911898136548a9973f71b8d 100644 (file)
--- a/lisp/kmacro.el
+++ b/lisp/kmacro.el
@@ -629,8 +629,7 @@ others, use \\[kmacro-name-last-macro]."
                                   (> (length (this-single-command-keys)) 1))
                              ;; Used when we're in the process of repeating.
                              (eq no-repeat 'repeating))
-                        last-input-event))
-       repeat-key-str)
+                        last-input-event)))
     (if end-macro
        (kmacro-end-macro arg)
       (call-last-kbd-macro arg #'kmacro-loop-setup-function))
@@ -641,7 +640,13 @@ others, use \\[kmacro-name-last-macro]."
                     (if (eq kmacro-call-repeat-key t)
                         repeat-key
                       kmacro-call-repeat-key)))
-      (setq repeat-key-str (format-kbd-macro (vector repeat-key) nil))
+      ;; Issue a hint to the user, if the echo area isn't in use.
+      (unless (current-message)
+       (message "(Type %s to repeat macro%s)"
+                (format-kbd-macro (vector repeat-key) nil)
+                (if (and kmacro-call-repeat-with-arg
+                         arg (> arg 1))
+                    (format " %d times" arg) "")))
       ;; Can't use the `keep-pred' arg because this overlay keymap needs to be
       ;; removed during the next run of the kmacro (i.e. we need to add&remove
       ;; this overlay-map at each repetition).