diff options
| author | Kim F. Storm <storm@cua.dk> | 2002-09-09 22:33:51 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2002-09-09 22:33:51 +0000 |
| commit | eeb8fc0d2394701a34ee5763521cc71c8df919e6 (patch) | |
| tree | 39b49501f8e6e34d115248b9093c1e8ee08611e5 /src/macros.c | |
| parent | 2b17d5ed901666e8ceebcaddd448c490d48ae2b6 (diff) | |
| download | emacs-eeb8fc0d2394701a34ee5763521cc71c8df919e6.tar.gz | |
(end_kbd_macro): New function.
(Fend_kbd_macro): Use it.
Diffstat (limited to 'src/macros.c')
| -rw-r--r-- | src/macros.c | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/src/macros.c b/src/macros.c index 456a6e31fa3..99383f758f3 100644 --- a/src/macros.c +++ b/src/macros.c @@ -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"); } |