diff options
| author | Glenn Morris <rgm@gnu.org> | 2012-07-06 17:34:49 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2012-07-06 17:34:49 -0400 |
| commit | 0d27a45e5883a9b4764422d4feaa95bd2f06701a (patch) | |
| tree | f4007119ff2715cd191f47cd3872e23a783c62d9 /lisp/kmacro.el | |
| parent | f5c08e17670cfda756af96c569efa48324b43908 (diff) | |
| download | emacs-0d27a45e5883a9b4764422d4feaa95bd2f06701a.tar.gz | |
* lisp/kmacro.el (kmacro-call-macro): Restore repeat message. (Bug#11817)
Diffstat (limited to 'lisp/kmacro.el')
| -rw-r--r-- | lisp/kmacro.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/kmacro.el b/lisp/kmacro.el index ffc97085a69..6ecac2cdf28 100644 --- 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). |