From 4315204e5b48828e7493b131c0141a41ae06a819 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 11 Nov 1996 20:33:21 +0000 Subject: [PATCH] (Fcall_last_kbd_macro): Set this_command from last_command on entry and again on exit. --- src/macros.c | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/macros.c b/src/macros.c index 30327503ebb..9054fb5bfea 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; } -- 2.39.5