diff options
author | Richard M. Stallman <[email protected]> | 1994-03-05 20:35:52 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1994-03-05 20:35:52 +0000 |
commit | 88ce066e29dc14567fbe94cc749d05d22a809a5d (patch) | |
tree | a935a31c6d61c4db22b0c3c08cedbb05789d26a1 /src | |
parent | 92d3b06efb5ae21e5fae06371922f072f8c7984d (diff) |
(command_loop_1, read_key_sequence, Fcommand_execute):
Don't call Vrun_hooks if it is nil.
Diffstat (limited to 'src')
-rw-r--r-- | src/keyboard.c | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index 24988923e7..7bd709ae1d 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -912,7 +912,7 @@ command_loop_1 () /* Make sure this hook runs after commands that get errors and throw to top level. */ - if (!NILP (Vpost_command_hook)) + if (!NILP (Vpost_command_hook) && !NILP (Vrun_hooks)) { /* If we get an error during the post-command-hook, cause post-command-hook to be nil. */ @@ -1039,7 +1039,7 @@ command_loop_1 () /* Execute the command. */ this_command = cmd; - if (!NILP (Vpre_command_hook)) + if (!NILP (Vpre_command_hook) && !NILP (Vrun_hooks)) { /* If we get an error during the pre-command-hook, cause pre-command-hook to be nil. */ @@ -1176,7 +1176,7 @@ command_loop_1 () } directly_done: ; - if (!NILP (Vpost_command_hook)) + if (!NILP (Vpost_command_hook) && !NILP (Vrun_hooks)) { /* If we get an error during the post-command-hook, cause post-command-hook to be nil. */ @@ -1204,7 +1204,7 @@ command_loop_1 () this_command_key_count = 0; } - if (!NILP (current_buffer->mark_active)) + if (!NILP (current_buffer->mark_active) && !NILP (Vrun_hooks)) { if (!NILP (Vdeactivate_mark) && !NILP (Vtransient_mark_mode)) { @@ -4522,7 +4522,8 @@ read_key_sequence (keybuf, bufsize, prompt) if (t + 1 >= bufsize) error ("key sequence too long"); /* Run the Lucid hook. */ - call1 (Vrun_hooks, Qactivate_menubar_hook); + if (!NILP (Vrun_hooks)) + call1 (Vrun_hooks, Qactivate_menubar_hook); /* If it has changed current-menubar from previous value, really recompute the menubar from the value. */ if (! NILP (Vlucid_menu_bar_dirty_flag)) @@ -4993,7 +4994,7 @@ Otherwise, that is done only if an arg is read using the minibuffer.") if (XTYPE (cmd) == Lisp_Symbol) { tem = Fget (cmd, Qdisabled); - if (!NILP (tem)) + if (!NILP (tem) && !NILP (Vrun_hooks)) return call1 (Vrun_hooks, Qdisabled_command_hook); } |