From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 24 Nov 1994 08:40:21 +0000 (+0000)
Subject: (command_loop_1): Use safe_run_hooks to run
X-Git-Tag: emacs-19.34~5785
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3ef14e464b3ca838872a99bfb6a991b4d966a3e0;p=emacs.git

(command_loop_1): Use safe_run_hooks to run
deferred-action-function.
(Qdeferred_action_function): New variable.
(syms_of_keyboard): Initialize and staticpro Qdeferred_action_function.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index aef4f1dc97a..4b1c6319737 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -310,6 +310,7 @@ Lisp_Object Vdeferred_action_list;
 
 /* Function to call to handle deferred actions, when there are any.  */
 Lisp_Object Vdeferred_action_function;
+Lisp_Object Qdeferred_action_function;
 
 /* File in which we write all commands we read.  */
 FILE *dribble;
@@ -1261,7 +1262,7 @@ command_loop_1 ()
 	safe_run_hooks (Qpost_command_hook);
 
       if (!NILP (Vdeferred_action_list))
-	call0 (Vdeferred_action_function);
+	safe_run_hooks (Qdeferred_action_function);
 
       /* If there is a prefix argument,
 	 1) We don't want last_command to be ``universal-argument''
@@ -6078,6 +6079,9 @@ syms_of_keyboard ()
   Qpost_command_hook = intern ("post-command-hook");
   staticpro (&Qpost_command_hook);
 
+  Qdeferred_action_function = intern ("deferred-action-function");
+  staticpro (&Qdeferred_action_function);
+
   Qcommand_hook_internal = intern ("command-hook-internal");
   staticpro (&Qcommand_hook_internal);