+ 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 ("store-kbd-macro-event", Fstore_kbd_macro_event,
+ Sstore_kbd_macro_event, 1, 1, 0,
+ "Store EVENT into the keyboard macro being defined.")
+ (event)
+ Lisp_Object event;
+{
+ store_kbd_macro_char (event);
+ return Qnil;