# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 819565888 0
# Node ID 7d50ac085b129e42f5b0347c14d9b812fc9f400c
# Parent  c387f71fe4b67e540509dce2a880ae7514b752f4
(Fstore_kbd_macro_event): New function.
(syms_of_macros): defsubr it.

diff -r c387f71fe4b6 -r 7d50ac085b12 src/macros.c
--- a/src/macros.c	Thu Dec 21 17:11:03 1995 +0000
+++ b/src/macros.c	Thu Dec 21 17:11:28 1995 +0000
@@ -155,6 +155,16 @@
 {
   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;
+}
 
 DEFUN ("call-last-kbd-macro", Fcall_last_kbd_macro, Scall_last_kbd_macro,
   0, 1, "p",
@@ -247,6 +257,7 @@
   defsubr (&Scall_last_kbd_macro);
   defsubr (&Sexecute_kbd_macro);
   defsubr (&Scancel_kbd_macro_events);
+  defsubr (&Sstore_kbd_macro_event);
 
   DEFVAR_KBOARD ("defining-kbd-macro", defining_kbd_macro,
     "Non-nil while a keyboard macro is being defined.  Don't set this!");