diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-10-12 20:03:15 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-10-12 20:03:15 +0000 |
| commit | b80d5655b016f15aaddb231ac75bfb18f0ac96dd (patch) | |
| tree | 2ca48c0345407153833a06c9e1e68cf091ceffa9 /src | |
| parent | b1f687a2f13d999975b29fc169e09061a29ab769 (diff) | |
| download | emacs-b80d5655b016f15aaddb231ac75bfb18f0ac96dd.tar.gz emacs-b80d5655b016f15aaddb231ac75bfb18f0ac96dd.tar.bz2 emacs-b80d5655b016f15aaddb231ac75bfb18f0ac96dd.zip | |
(Fexecute_kbd_macro): Set real_this_command.
Diffstat (limited to 'src')
| -rw-r--r-- | src/macros.c | 4 |
1 files changed, 4 insertions, 0 deletions
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); } |