diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-08-13 15:47:11 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-08-13 15:47:11 +0000 |
commit | 6c8bf589ba5feb667aa8c6804d8bba9f616529c5 (patch) | |
tree | 707afb68130f8b0fbc01bc74c5a8950b8c24da91 | |
parent | 0bd6515d3d7881ab49cb2a79781b181317f4858d (diff) | |
download | emacs-6c8bf589ba5feb667aa8c6804d8bba9f616529c5.tar.gz |
(Fcancel_kbd_macro_events): New function.
(syms_of_macros): defsubr it.
-rw-r--r-- | src/macros.c | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/macros.c b/src/macros.c index 250e33896ff..7b2cd3d4235 100644 --- a/src/macros.c +++ b/src/macros.c @@ -147,6 +147,14 @@ finalize_kbd_macro_chars () { current_kboard->kbd_macro_end = current_kboard->kbd_macro_ptr; } + +DEFUN ("cancel-kbd-macro-events", Fcancel_kbd_macro_events, + Scancel_kbd_macro_events, 0, 0, 0, + "Cancel the events added to a keyboard macro for this command.") + () +{ + current_kboard->kbd_macro_ptr = current_kboard->kbd_macro_end; +} DEFUN ("call-last-kbd-macro", Fcall_last_kbd_macro, Scall_last_kbd_macro, 0, 1, "p", @@ -238,6 +246,7 @@ syms_of_macros () defsubr (&Send_kbd_macro); defsubr (&Scall_last_kbd_macro); defsubr (&Sexecute_kbd_macro); + defsubr (&Scancel_kbd_macro_events); DEFVAR_KBOARD ("defining-kbd-macro", defining_kbd_macro, "Non-nil while a keyboard macro is being defined. Don't set this!"); |