Mercurial > emacs

changeset 36029:e536d2c83d02

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(repeat): Don't let execute-kbd-macro alter real-last-command.
author Richard M. Stallman <rms@gnu.org>
date Sat, 10 Feb 2001 16:33:44 +0000
parents b6487bb8750c
children 6ef1520f4852
files lisp/repeat.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/repeat.el	Sat Feb 10 16:30:42 2001 +0000
+++ b/lisp/repeat.el	Sat Feb 10 16:33:44 2001 +0000
@@ -280,7 +280,10 @@
 	(let ((indirect (indirect-function real-last-command)))
 	  (if (or (stringp indirect)
 		  (vectorp indirect))
-	      (execute-kbd-macro real-last-command)
+	      ;; Bind real-last-command so that executing the macro
+	      ;; does not alter it.
+	      (let ((real-last-command real-last-command))
+		(execute-kbd-macro real-last-command))
 	    (call-interactively real-last-command)))))
     (when repeat-repeat-char
       ;; A simple recursion here gets into trouble with max-lisp-eval-depth