From f1b6e5fc820e9f22db1a59f90148aec14187916f Mon Sep 17 00:00:00 2001 From: Simon Marshall Date: Mon, 31 Jul 1995 12:02:51 +0000 Subject: [PATCH] Declare hook running functions. --- src/lisp.h | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/src/lisp.h b/src/lisp.h index 79ce061757e..03a752d9034 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -1442,11 +1442,17 @@ extern Lisp_Object Vinhibit_quit, Qinhibit_quit, Vquit_flag; extern Lisp_Object Vmocklisp_arguments, Qmocklisp, Qmocklisp_arguments; extern Lisp_Object Vautoload_queue; extern Lisp_Object Vdebug_on_error; -/* To run a normal hook, do +/* To run a normal hook, use the appropriate function from the list below. + The calling convention: + if (!NILP (Vrun_hooks)) - call1 (Vrun_hooks, Qmy_funny_hook); */ + call1 (Vrun_hooks, Qmy_funny_hook); + + should no longer be used. */ extern Lisp_Object Vrun_hooks; -extern Lisp_Object Frun_hooks_with_args (); +extern Lisp_Object Frun_hooks (), Frun_hook_with_args (); +extern Lisp_Object Frun_hook_with_args_until_success (); +extern Lisp_Object Frun_hook_with_args_until_failure (); extern Lisp_Object Fand (), For (), Fif (), Fprogn (), Fprog1 (), Fprog2 (); extern Lisp_Object Fsetq (), Fquote (); extern Lisp_Object Fuser_variable_p (), Finteractive_p (); -- 2.39.2