mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-12 10:44:12 -08:00
Code Issues Projects Releases Wiki Activity

(end_kbd_macro): New function.

Browse source 
(Fend_kbd_macro): Use it.
This commit is contained in:
Kim F. Storm 2002-09-09 22:33:51 +00:00
parent 2b17d5ed90
commit eeb8fc0d23
1 changed files with 14 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/macros.c
View file

@ -131,6 +131,19 @@ macro before appending to it. */)
return Qnil;
}
/* Finish defining the current keyboard macro. */
void
end_kbd_macro ()
{
current_kboard->defining_kbd_macro = Qnil;
update_mode_lines++;
current_kboard->Vlast_kbd_macro
= make_event_array ((current_kboard->kbd_macro_end
- current_kboard->kbd_macro_buffer),
current_kboard->kbd_macro_buffer);
}
DEFUN ("end-kbd-macro", Fend_kbd_macro, Send_kbd_macro, 0, 2, "p",
doc: /* Finish defining a keyboard macro.
The definition was started by \\[start-kbd-macro].
@ -157,12 +170,7 @@ each iteration of the macro. Iteration stops if LOOPFUNC returns nil. */)
if (!NILP (current_kboard->defining_kbd_macro))
{
current_kboard->defining_kbd_macro = Qnil;
update_mode_lines++;
current_kboard->Vlast_kbd_macro
= make_event_array ((current_kboard->kbd_macro_end
- current_kboard->kbd_macro_buffer),
current_kboard->kbd_macro_buffer);
end_kbd_macro ();
message ("Keyboard macro defined");
}