# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 908222595 0
# Node ID 1dd05eb0443d5863ade56a8b31586514d2853e79
# Parent  a53274056f20b5692b5496e0ad4332fc44f35099
(Fexecute_kbd_macro): Set real_this_command.

diff -r a53274056f20 -r 1dd05eb0443d src/macros.c
--- a/src/macros.c	Mon Oct 12 17:27:23 1998 +0000
+++ b/src/macros.c	Mon Oct 12 20:03:15 1998 +0000
@@ -51,6 +51,8 @@
 
 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 @@
 
   executing_macro = Qnil;
 
+  real_this_command = Vexecuting_macro;
+
   UNGCPRO;
   return unbind_to (pdlcount, Qnil);
 }