Mercurial > emacs
changeset 13773:7d50ac085b12
(Fstore_kbd_macro_event): New function.
(syms_of_macros): defsubr it.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 21 Dec 1995 17:11:28 +0000 |
| parents | c387f71fe4b6 |
| children | 2e1d9d11e506 |
| files | src/macros.c |
| diffstat | 1 files changed, 11 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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!");