Commit b80d5655 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Fexecute_kbd_macro): Set real_this_command.

parent b1f687a2
......@@ -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);
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment