From 3ef14e464b3ca838872a99bfb6a991b4d966a3e0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 24 Nov 1994 08:40:21 +0000 Subject: [PATCH] (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. --- src/keyboard.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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); -- 2.39.5