Commit 2d5f65a9 authored by Karl Heuer's avatar Karl Heuer
Browse files

(Fstore_kbd_macro_event): New function.

(syms_of_macros): defsubr it.
parent d36b8826
......@@ -155,6 +155,16 @@ DEFUN ("cancel-kbd-macro-events", Fcancel_kbd_macro_events,
{
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 @@ syms_of_macros ()
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!");
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment