mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Glenn Morris 2012-07-06 17:34:49 -04:00
parent f5c08e1767
commit 0d27a45e58
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -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>

11
lisp/kmacro.el
View File

@ -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).