Mercurial > emacs
changeset 12731:cac1b80e43be
Declare hook running functions.
| author | Simon Marshall <simon@gnu.org> |
|---|---|
| date | Mon, 31 Jul 1995 12:02:51 +0000 |
| parents | 2f4bbd557180 |
| children | 981b924c832b |
| files | src/lisp.h |
| diffstat | 1 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lisp.h Mon Jul 31 09:52:45 1995 +0000 +++ b/src/lisp.h Mon Jul 31 12:02:51 1995 +0000 @@ -1442,11 +1442,17 @@ 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 ();