From bb1c6663330a318d86e64bf6ec87baf69d486958 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 19 Jan 2011 22:10:05 -0800 Subject: [PATCH] Give kbd-macro-termination-hook a doc. * src/macros.c (syms_of_macros) : Give it a doc string. * src/globals.h: Add Vkbd_macro_termination_hook. --- src/ChangeLog | 6 ++++++ src/globals.h | 5 +++++ src/macros.c | 10 ++++++++-- 3 files changed, 19 insertions(+), 2 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 7227d2e9940..6e54c7a1809 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2011-01-20 Glenn Morris + + * macros.c (syms_of_macros) : + Give it a doc string. + * globals.h: Add Vkbd_macro_termination_hook. + 2011-01-20 Chong Yidong * fns.c (Fyes_or_no_p): Revert 2011-01-07 change, removing ARGS. diff --git a/src/globals.h b/src/globals.h index 8f4749054e9..2b051dd542c 100644 --- 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 35ff5552466..62400bc3ea0 100644 --- 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); -- 2.11.4.GIT