From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 12 Oct 1998 20:03:15 +0000 (+0000)
Subject: (Fexecute_kbd_macro): Set real_this_command.
X-Git-Tag: emacs-20.4~1515
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b80d5655b016f15aaddb231ac75bfb18f0ac96dd;p=emacs.git

(Fexecute_kbd_macro): Set real_this_command.
---

diff --git a/src/macros.c b/src/macros.c
index 64cf5e80c44..f5bddd26e6f 100644
--- a/src/macros.c
+++ b/src/macros.c
@@ -51,6 +51,8 @@ int executing_macro_iterations;
 
 Lisp_Object executing_macro;
 
+extern Lisp_Object real_this_command;
+
 Lisp_Object Fexecute_kbd_macro ();
 
 DEFUN ("start-kbd-macro", Fstart_kbd_macro, Sstart_kbd_macro, 1, 1, "P",
@@ -286,6 +288,8 @@ COUNT is a repeat count, or nil for once, or 0 for infinite loop.")
 
   executing_macro = Qnil;
 
+  real_this_command = Vexecuting_macro;
+
   UNGCPRO;
   return unbind_to (pdlcount, Qnil);
 }