# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1295503805 28800
# Node ID 051c56a77c5cad4bb8625f2d2c2c88bf43329cd1
# Parent  396b01a20bde788114cee5511ab584f64d85c982
Give kbd-macro-termination-hook a doc.

* src/macros.c (syms_of_macros) <kbd-macro-termination-hook>:
Give it a doc string.
* src/globals.h: Add Vkbd_macro_termination_hook.

diff -r 396b01a20bde -r 051c56a77c5c src/ChangeLog
--- a/src/ChangeLog	Wed Jan 19 21:02:52 2011 -0800
+++ b/src/ChangeLog	Wed Jan 19 22:10:05 2011 -0800
@@ -1,3 +1,9 @@
+2011-01-20  Glenn Morris  <rgm@gnu.org>
+
+	* macros.c (syms_of_macros) <kbd-macro-termination-hook>:
+	Give it a doc string.
+	* globals.h: Add Vkbd_macro_termination_hook.
+
 2011-01-20  Chong Yidong  <cyd@stupidchicken.com>
 
 	* fns.c (Fyes_or_no_p): Revert 2011-01-07 change, removing ARGS.
diff -r 396b01a20bde -r 051c56a77c5c src/globals.h
--- a/src/globals.h	Wed Jan 19 21:02:52 2011 -0800
+++ b/src/globals.h	Wed Jan 19 22:10:05 2011 -0800
@@ -937,6 +937,9 @@
 
   Lisp_Object f_Vobarray;
 
+  /* Normal hook run whenever a keyboard macro terminates.  */
+  Lisp_Object f_Vkbd_macro_termination_hook;
+
   /* Kbd macro currently being executed (a string or vector).  */
   Lisp_Object f_Vexecuting_kbd_macro;
 
@@ -1951,6 +1954,8 @@
     globals.f_Vexec_path
 #define Vexec_suffixes \
     globals.f_Vexec_suffixes
+#define Vkbd_macro_termination_hook \
+    globals.f_Vkbd_macro_termination_hook
 #define Vexecuting_kbd_macro \
     globals.f_Vexecuting_kbd_macro
 #define Vface_default_stipple \
diff -r 396b01a20bde -r 051c56a77c5c src/macros.c
--- a/src/macros.c	Wed Jan 19 21:02:52 2011 -0800
+++ b/src/macros.c	Wed Jan 19 22:10:05 2011 -0800
@@ -1,6 +1,7 @@
 /* Keyboard macros.
-   Copyright (C) 1985, 1986, 1993, 2000, 2001, 2002, 2003, 2004,
-                 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
+
+Copyright (C) 1985, 1986, 1993, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
+  2007, 2008, 2009, 2010, 2011  Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -361,6 +362,11 @@
 {
   Qexecute_kbd_macro = intern_c_string ("execute-kbd-macro");
   staticpro (&Qexecute_kbd_macro);
+
+  DEFVAR_LISP ("kbd-macro-termination-hook", Vkbd_macro_termination_hook,
+               doc: /* Normal hook run whenever a keyboard macro terminates.
+This is run whether the macro ends normally or prematurely due to an error.  */);
+  Vkbd_macro_termination_hook = Qnil;
   Qkbd_macro_termination_hook = intern_c_string ("kbd-macro-termination-hook");
   staticpro (&Qkbd_macro_termination_hook);