(Fexecute_kbd_macro): Set real_this_command.

This commit is contained in:
Richard M. Stallman 1998-10-12 20:03:15 +00:00
parent b1f687a2f1
commit b80d5655b0

View file

@ -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);
}