X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/1ab778be0568fd565196413e2489e3438937b18a..eddd51c2807805e47aa70008234111b601e9a050:/src/macros.c

diff --git a/src/macros.c b/src/macros.c
index 30327503eb..9054fb5bfe 100644
--- a/src/macros.c
+++ b/src/macros.c
@@ -204,12 +204,22 @@ defining others, use \\[name-last-kbd-macro].")
   (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;
 }