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 --git a/src/ChangeLog b/src/ChangeLog
index 7227d2e9940d5ec8d33ed92744be854c72c6faab..6e54c7a1809d2649b7df41f6c76471805b04073c 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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 --git a/src/globals.h b/src/globals.h
index 8f4749054e9effc7e78b95b2c2f619df4346fcfe..2b051dd542c5e2fc2553be27030f5aa8d5699b05 100644 (file)
--- a/src/globals.h
+++ b/src/globals.h
@@ -937,6 +937,9 @@ struct emacs_globals
 
   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 @@ extern struct emacs_globals globals;
     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 --git a/src/macros.c b/src/macros.c
index 35ff55524661822a61b626356587cc5c98c17648..62400bc3ea094aee909bf25219586fca0ef5e006 100644 (file)
--- a/src/macros.c
+++ b/src/macros.c
@@ -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 @@ syms_of_macros (void)
 {
   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);