mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-11 09:20:51 +00:00
Code Issues Releases Activity

(Fdiscard_input): If defining keyboard macro,

Browse Source 
end and save it instead of discarding it.
This commit is contained in:
Kim F. Storm 2002-09-09 22:33:36 +00:00
parent d99f849681
commit 2b17d5ed90
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/keyboard.c
View File

@ -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;