From: Kim F. Storm <storm@cua.dk>
Date: Mon, 9 Sep 2002 22:33:51 +0000 (+0000)
Subject: (end_kbd_macro): New function.
X-Git-Tag: ttn-vms-21-2-B4~13289
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eeb8fc0d2394701a34ee5763521cc71c8df919e6;p=emacs.git

(end_kbd_macro): New function.
(Fend_kbd_macro): Use it.
---

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");
     }