Mercurial > emacs
diff lisp/kmacro.el @ 90054:f2ebccfa87d4
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-74
Merge from emacs--cvs-trunk--0
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-709
Update from CVS: src/indent.c (Fvertical_motion): Fix last change.
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-710
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-715
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-716
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-74
Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Wed, 08 Dec 2004 05:02:30 +0000 |
parents | e24e2e78deda 9a437a7c791c |
children | 3ebd9bdb4fe5 |
line wrap: on
line diff
--- a/lisp/kmacro.el Mon Dec 06 12:38:25 2004 +0000 +++ b/lisp/kmacro.el Wed Dec 08 05:02:30 2004 +0000 @@ -237,6 +237,8 @@ (defvar kmacro-counter 0 "*Current keyboard macro counter.") +(defvar kmacro-default-counter-format "%d") + (defvar kmacro-counter-format "%d" "*Current keyboard macro counter format.") @@ -268,12 +270,12 @@ (defun kmacro-set-format (format) "Set macro counter FORMAT." - (interactive "sMacro Counter Format (printf format): ") + (interactive "sMacro Counter Format: ") (setq kmacro-counter-format (if (equal format "") "%d" format)) ;; redefine initial macro counter if we are not executing a macro. (if (not (or defining-kbd-macro executing-kbd-macro)) - (setq kmacro-counter-format-start kmacro-counter-format))) + (setq kmacro-default-counter-format kmacro-counter-format))) (defun kmacro-display-counter (&optional value) @@ -404,12 +406,12 @@ (let* ((x 60) (m (format-kbd-macro macro)) (l (length m)) - (z (and nil trunc (> l x)))) - (message (format "%s%s: %s%s" (or descr "Macro") - (if (= kmacro-counter 0) "" - (format " [%s]" - (format kmacro-counter-format-start kmacro-counter))) - (if z (substring m 0 (1- x)) m) (if z "..." "")))) + (z (and trunc (> l x)))) + (message "%s%s: %s%s" (or descr "Macro") + (if (= kmacro-counter 0) "" + (format " [%s]" + (format kmacro-counter-format-start kmacro-counter))) + (if z (substring m 0 (1- x)) m) (if z "..." ""))) (message (or empty "No keyboard macros defined")))) @@ -588,7 +590,8 @@ kmacro-initial-counter-value nil kmacro-counter-value-start kmacro-counter kmacro-last-counter kmacro-counter - kmacro-counter-format-start kmacro-counter-format)) + kmacro-counter-format kmacro-default-counter-format + kmacro-counter-format-start kmacro-default-counter-format)) (start-kbd-macro append (and append