Mercurial > emacs

changeset 16562:4999fc12564e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fcall_last_kbd_macro): Set this_command from last_command on entry and again on exit.
author Richard M. Stallman <rms@gnu.org>
date Mon, 11 Nov 1996 20:33:21 +0000
parents 55fcbbf28987
children 41bbec0cc4c6
files src/macros.c
diffstat 1 files changed, 10 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/macros.c	Mon Nov 11 20:32:48 1996 +0000
+++ b/src/macros.c	Mon Nov 11 20:33:21 1996 +0000
@@ -204,12 +204,22 @@
   (prefix)
      Lisp_Object prefix;
 {
+  /* Don't interfere with recognition of the previous command
+     from before this macro started.  */
+  this_command = current_kboard->Vlast_command;
+
   if (! NILP (current_kboard->defining_kbd_macro))
     error ("Can't execute anonymous macro while defining one");
   else if (NILP (current_kboard->Vlast_kbd_macro))
     error ("No kbd macro has been defined");
   else
     Fexecute_kbd_macro (current_kboard->Vlast_kbd_macro, prefix);
+
+  /* command_loop_1 sets this to nil before it returns;
+     get back the last command within the macro
+     so that it can be last, again, after we return.  */
+  this_command = current_kboard->Vlast_command;
+
   return Qnil;
 }