Mercurial > emacs
changeset 10070:def41008c136
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 24 Nov 1994 08:40:21 +0000 |
| parents | badc25c57780 |
| children | 1a498b87fdbd |
| files | src/keyboard.c |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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);