9786 |
|
|
9787 |
DEFUN ("discard-input", Fdiscard_input, Sdiscard_input, 0, 0, 0, |
DEFUN ("discard-input", Fdiscard_input, Sdiscard_input, 0, 0, 0, |
9788 |
doc: /* Discard the contents of the terminal input buffer. |
doc: /* Discard the contents of the terminal input buffer. |
9789 |
Also cancel any kbd macro being defined. */) |
Also end any kbd macro being defined. */) |
9790 |
() |
() |
9791 |
{ |
{ |
9792 |
current_kboard->defining_kbd_macro = Qnil; |
if (!NILP (current_kboard->defining_kbd_macro)) |
9793 |
|
{ |
9794 |
|
/* Discard the last command from the macro. */ |
9795 |
|
Fcancel_kbd_macro_events (); |
9796 |
|
end_kbd_macro (); |
9797 |
|
} |
9798 |
|
|
9799 |
update_mode_lines++; |
update_mode_lines++; |
9800 |
|
|
9801 |
Vunread_command_events = Qnil; |
Vunread_command_events = Qnil; |