# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 978956612 0
# Node ID 97a19f647a12caee341243a7d00f68ea5ba2b82f
# Parent  53621ef3713e2f4291f2a8e8f2a19c057c14943b
(Qkbd_macro_termination_hook): New variable.
(syms_of_macros): Initialize and staticpro it.
(pop_kbd_macro): Run kbd-macro-termination-hook.

diff -r 53621ef3713e -r 97a19f647a12 src/macros.c
--- a/src/macros.c	Sun Jan 07 21:15:54 2001 +0000
+++ b/src/macros.c	Mon Jan 08 12:23:32 2001 +0000
@@ -1,5 +1,5 @@
 /* Keyboard macros.
-   Copyright (C) 1985, 1986, 1993, 2000 Free Software Foundation, Inc.
+   Copyright (C) 1985, 1986, 1993, 2000, 2001 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -27,7 +27,7 @@
 #include "window.h"
 #include "keyboard.h"
 
-Lisp_Object Qexecute_kbd_macro;
+Lisp_Object Qexecute_kbd_macro, Qkbd_macro_termination_hook;
 
 /* Kbd macro currently being executed (a string or vector).  */
 
@@ -273,6 +273,7 @@
   tem = XCDR (info);
   executing_macro_index = XINT (XCAR (tem));
   real_this_command = XCDR (tem);
+  Frun_hooks (1, &Qkbd_macro_termination_hook);
   return Qnil;
 }
 
@@ -344,6 +345,8 @@
 {
   Qexecute_kbd_macro = intern ("execute-kbd-macro");
   staticpro (&Qexecute_kbd_macro);
+  Qkbd_macro_termination_hook = intern ("kbd-macro-termination-hook");
+  staticpro (&Qkbd_macro_termination_hook);
 
   defsubr (&Sstart_kbd_macro);
   defsubr (&Send_kbd_macro);