Mercurial > emacs

comparison src/macros.c @ 12845:9ee2045cda62

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fcancel_kbd_macro_events): New function. (syms_of_macros): defsubr it.
author Richard M. Stallman <rms@gnu.org>
date Sun, 13 Aug 1995 15:47:11 +0000
parents d7b51659a56d
children 7d50ac085b12
comparison
equal deleted inserted replaced
12844:a6bcb0568121 12845:9ee2045cda62
145 145
146 finalize_kbd_macro_chars () 146 finalize_kbd_macro_chars ()
147 { 147 {
148 current_kboard->kbd_macro_end = current_kboard->kbd_macro_ptr; 148 current_kboard->kbd_macro_end = current_kboard->kbd_macro_ptr;
149 } 149 }
150
151 DEFUN ("cancel-kbd-macro-events", Fcancel_kbd_macro_events,
152 Scancel_kbd_macro_events, 0, 0, 0,
153 "Cancel the events added to a keyboard macro for this command.")
154 ()
155 {
156 current_kboard->kbd_macro_ptr = current_kboard->kbd_macro_end;
157 }
150 158
151 DEFUN ("call-last-kbd-macro", Fcall_last_kbd_macro, Scall_last_kbd_macro, 159 DEFUN ("call-last-kbd-macro", Fcall_last_kbd_macro, Scall_last_kbd_macro,
152 0, 1, "p", 160 0, 1, "p",
153 "Call the last keyboard macro that you defined with \\[start-kbd-macro].\n\ 161 "Call the last keyboard macro that you defined with \\[start-kbd-macro].\n\
154 \n\ 162 \n\
236 244
237 defsubr (&Sstart_kbd_macro); 245 defsubr (&Sstart_kbd_macro);
238 defsubr (&Send_kbd_macro); 246 defsubr (&Send_kbd_macro);
239 defsubr (&Scall_last_kbd_macro); 247 defsubr (&Scall_last_kbd_macro);
240 defsubr (&Sexecute_kbd_macro); 248 defsubr (&Sexecute_kbd_macro);
249 defsubr (&Scancel_kbd_macro_events);
241 250
242 DEFVAR_KBOARD ("defining-kbd-macro", defining_kbd_macro, 251 DEFVAR_KBOARD ("defining-kbd-macro", defining_kbd_macro,
243 "Non-nil while a keyboard macro is being defined. Don't set this!"); 252 "Non-nil while a keyboard macro is being defined. Don't set this!");
244 253
245 DEFVAR_LISP ("executing-macro", &Vexecuting_macro, 254 DEFVAR_LISP ("executing-macro", &Vexecuting_macro,