Mercurial > emacs
changeset 112383:051c56a77c5c
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.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 19 Jan 2011 22:10:05 -0800 |
| parents | 396b01a20bde |
| children | f5af01a13248 |
| files | src/ChangeLog src/globals.h src/macros.c |
| diffstat | 3 files changed, 19 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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 \
--- 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);