# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 808328831 0
# Node ID 9ee2045cda6211f769b5e621cc6dfbf4a1d7b50c
# Parent  a6bcb05681218163fcd10397cf8d84db2a21bdd9
(Fcancel_kbd_macro_events): New function.
(syms_of_macros): defsubr it.

diff -r a6bcb0568121 -r 9ee2045cda62 src/macros.c
--- a/src/macros.c	Sun Aug 13 15:46:10 1995 +0000
+++ b/src/macros.c	Sun Aug 13 15:47:11 1995 +0000
@@ -147,6 +147,14 @@
 {
   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 @@
   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!");