Commit bb1c6663 authored by Glenn Morris's avatar Glenn Morris
Browse files

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.
parent 130e4a5d
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> 2011-01-20 Chong Yidong <cyd@stupidchicken.com>
   
* fns.c (Fyes_or_no_p): Revert 2011-01-07 change, removing ARGS. * fns.c (Fyes_or_no_p): Revert 2011-01-07 change, removing ARGS.
...@@ -937,6 +937,9 @@ struct emacs_globals ...@@ -937,6 +937,9 @@ struct emacs_globals
Lisp_Object f_Vobarray; 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). */ /* Kbd macro currently being executed (a string or vector). */
Lisp_Object f_Vexecuting_kbd_macro; Lisp_Object f_Vexecuting_kbd_macro;
...@@ -1951,6 +1954,8 @@ extern struct emacs_globals globals; ...@@ -1951,6 +1954,8 @@ extern struct emacs_globals globals;
globals.f_Vexec_path globals.f_Vexec_path
#define Vexec_suffixes \ #define Vexec_suffixes \
globals.f_Vexec_suffixes globals.f_Vexec_suffixes
#define Vkbd_macro_termination_hook \
globals.f_Vkbd_macro_termination_hook
#define Vexecuting_kbd_macro \ #define Vexecuting_kbd_macro \
globals.f_Vexecuting_kbd_macro globals.f_Vexecuting_kbd_macro
#define Vface_default_stipple \ #define Vface_default_stipple \
......
/* Keyboard macros. /* 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. This file is part of GNU Emacs.
...@@ -361,6 +362,11 @@ syms_of_macros (void) ...@@ -361,6 +362,11 @@ syms_of_macros (void)
{ {
Qexecute_kbd_macro = intern_c_string ("execute-kbd-macro"); Qexecute_kbd_macro = intern_c_string ("execute-kbd-macro");
staticpro (&Qexecute_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"); Qkbd_macro_termination_hook = intern_c_string ("kbd-macro-termination-hook");
staticpro (&Qkbd_macro_termination_hook); staticpro (&Qkbd_macro_termination_hook);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment