From 2b17d5ed901666e8ceebcaddd448c490d48ae2b6 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Mon, 9 Sep 2002 22:33:36 +0000 Subject: [PATCH] (Fdiscard_input): If defining keyboard macro, end and save it instead of discarding it. --- src/keyboard.c | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/src/keyboard.c b/src/keyboard.c index 1f2227f419a..76101090d4c 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -9786,10 +9786,16 @@ If FILE is nil, close any open dribble file. */) DEFUN ("discard-input", Fdiscard_input, Sdiscard_input, 0, 0, 0, doc: /* Discard the contents of the terminal input buffer. -Also cancel any kbd macro being defined. */) +Also end any kbd macro being defined. */) () { - current_kboard->defining_kbd_macro = Qnil; + if (!NILP (current_kboard->defining_kbd_macro)) + { + /* Discard the last command from the macro. */ + Fcancel_kbd_macro_events (); + end_kbd_macro (); + } + update_mode_lines++; Vunread_command_events = Qnil; -- 2.39.2