Mercurial > emacs
comparison src/keyboard.c @ 47347:28bab21524d4
(Fdiscard_input): If defining keyboard macro,
end and save it instead of discarding it.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Mon, 09 Sep 2002 22:33:36 +0000 |
parents | 775e763fdaf2 |
children | 734e6dc4caf1 |
comparison
equal
deleted
inserted
replaced
47346:8287dca5eb2d | 47347:28bab21524d4 |
---|---|
9784 return Qnil; | 9784 return Qnil; |
9785 } | 9785 } |
9786 | 9786 |
9787 DEFUN ("discard-input", Fdiscard_input, Sdiscard_input, 0, 0, 0, | 9787 DEFUN ("discard-input", Fdiscard_input, Sdiscard_input, 0, 0, 0, |
9788 doc: /* Discard the contents of the terminal input buffer. | 9788 doc: /* Discard the contents of the terminal input buffer. |
9789 Also cancel any kbd macro being defined. */) | 9789 Also end any kbd macro being defined. */) |
9790 () | 9790 () |
9791 { | 9791 { |
9792 current_kboard->defining_kbd_macro = Qnil; | 9792 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 | |
9793 update_mode_lines++; | 9799 update_mode_lines++; |
9794 | 9800 |
9795 Vunread_command_events = Qnil; | 9801 Vunread_command_events = Qnil; |
9796 unread_command_char = -1; | 9802 unread_command_char = -1; |
9797 | 9803 |