From 2136b408554bccfa957457b127b8905f345a3998 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 8 Jan 2001 12:23:32 +0000 Subject: [PATCH] (Qkbd_macro_termination_hook): New variable. (syms_of_macros): Initialize and staticpro it. (pop_kbd_macro): Run kbd-macro-termination-hook. --- src/macros.c | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/macros.c b/src/macros.c index bf19526eb0..fde63165b4 100644 --- a/src/macros.c +++ b/src/macros.c @@ -1,5 +1,5 @@ /* Keyboard macros. - Copyright (C) 1985, 1986, 1993, 2000 Free Software Foundation, Inc. + Copyright (C) 1985, 1986, 1993, 2000, 2001 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -27,7 +27,7 @@ Boston, MA 02111-1307, USA. */ #include "window.h" #include "keyboard.h" -Lisp_Object Qexecute_kbd_macro; +Lisp_Object Qexecute_kbd_macro, Qkbd_macro_termination_hook; /* Kbd macro currently being executed (a string or vector). */ @@ -273,6 +273,7 @@ pop_kbd_macro (info) tem = XCDR (info); executing_macro_index = XINT (XCAR (tem)); real_this_command = XCDR (tem); + Frun_hooks (1, &Qkbd_macro_termination_hook); return Qnil; } @@ -344,6 +345,8 @@ syms_of_macros () { Qexecute_kbd_macro = intern ("execute-kbd-macro"); staticpro (&Qexecute_kbd_macro); + Qkbd_macro_termination_hook = intern ("kbd-macro-termination-hook"); + staticpro (&Qkbd_macro_termination_hook); defsubr (&Sstart_kbd_macro); defsubr (&Send_kbd_macro); -- 2.20.1