diff options
author | Julien Danjou <julien@danjou.info> | 2011-03-23 11:06:57 +0100 |
---|---|---|
committer | Julien Danjou <julien@danjou.info> | 2011-03-23 11:06:57 +0100 |
commit | dee091a37f6486dbbcf7bf00f6ee54d77033f997 (patch) | |
tree | 922b3490e04f512f9664ca350102d57a18296680 /src/minibuf.c | |
parent | 904a432cf44c176fa3c88a975f046d0cf2992023 (diff) | |
download | emacs-dee091a37f6486dbbcf7bf00f6ee54d77033f997.tar.gz emacs-dee091a37f6486dbbcf7bf00f6ee54d77033f997.tar.bz2 emacs-dee091a37f6486dbbcf7bf00f6ee54d77033f997.zip |
Use Frun_hooks rather than calling Vrun_hooks manually
Diffstat (limited to 'src/minibuf.c')
-rw-r--r-- | src/minibuf.c | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/src/minibuf.c b/src/minibuf.c index b6b79be9d3f..7bed9bb2f2d 100644 --- a/src/minibuf.c +++ b/src/minibuf.c @@ -649,12 +649,7 @@ read_minibuf (Lisp_Object map, Lisp_Object initial, Lisp_Object prompt, if (STRINGP (input_method) && !NILP (Ffboundp (Qactivate_input_method))) call1 (Qactivate_input_method, input_method); - /* Run our hook, but not if it is empty. - (run-hooks would do nothing if it is empty, - but it's important to save time here in the usual case.) */ - if (!NILP (Vminibuffer_setup_hook) && !EQ (Vminibuffer_setup_hook, Qunbound) - && !NILP (Vrun_hooks)) - call1 (Vrun_hooks, Qminibuffer_setup_hook); + Frun_hooks (1, &Qminibuffer_setup_hook); /* Don't allow the user to undo past this point. */ BVAR (current_buffer, undo_list) = Qnil; @@ -806,10 +801,7 @@ get_minibuffer (int depth) static Lisp_Object run_exit_minibuf_hook (Lisp_Object data) { - if (!NILP (Vminibuffer_exit_hook) && !EQ (Vminibuffer_exit_hook, Qunbound) - && !NILP (Vrun_hooks)) - safe_run_hooks (Qminibuffer_exit_hook); - + safe_run_hooks (Qminibuffer_exit_hook); return Qnil; } |