[Emacs-diffs] /srv/bzr/emacs/trunk r102912: Give kbd-macro-termination-hook a doc.

[Glenn Morris]

------------------------------------------------------------
revno: 102912
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2011-01-19 22:10:05 -0800
message:
  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.
modified:
  src/ChangeLog
  src/globals.h
  src/macros.c

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2011-01-20 02:55:36 +0000
+++ b/src/ChangeLog     2011-01-20 06:10:05 +0000
@@ -1,3 +1,9 @@
+2011-01-20  Glenn Morris  <address@hidden>
+
+       * 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  <address@hidden>
 
        * fns.c (Fyes_or_no_p): Revert 2011-01-07 change, removing ARGS.

=== modified file 'src/globals.h'
--- a/src/globals.h     2011-01-19 23:32:42 +0000
+++ b/src/globals.h     2011-01-20 06:10:05 +0000
@@ -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 \

=== modified file 'src/macros.c'
--- a/src/macros.c      2011-01-18 20:45:37 +0000
+++ b/src/macros.c      2011-01-20 06:10:05 +0000
@@ -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);