# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 785666421 0
# Node ID def41008c136aa9370aa4c75e4e02d43577368b3
# Parent  badc25c577804c67b5a9b1a0f2d5dab4b9171977
(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 -r badc25c57780 -r def41008c136 src/keyboard.c
--- a/src/keyboard.c	Thu Nov 24 08:39:41 1994 +0000
+++ b/src/keyboard.c	Thu Nov 24 08:40:21 1994 +0000
@@ -310,6 +310,7 @@
 
 /* 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 @@
 	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 @@
   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);