(Fexecute_kbd_macro): Set real_this_command.
This commit is contained in:
parent
b1f687a2f1
commit
b80d5655b0
1 changed files with 4 additions and 0 deletions
|
@ -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);
|
||||
}
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue