diff options
| author | Simon Marshall <simon@gnu.org> | 1995-07-31 12:02:51 +0000 |
|---|---|---|
| committer | Simon Marshall <simon@gnu.org> | 1995-07-31 12:02:51 +0000 |
| commit | b6ee48c6edbbce310f373eaabef7e965ad89dccd (patch) | |
| tree | 49b006b509d8c267f20c3b27ff25c2b989013279 /src/lisp.h | |
| parent | 51ccc5bab73c4356559fb2a85a105d21961658fc (diff) | |
| download | emacs-b6ee48c6edbbce310f373eaabef7e965ad89dccd.tar.gz | |
Declare hook running functions.
Diffstat (limited to 'src/lisp.h')
| -rw-r--r-- | src/lisp.h | 12 |
1 files 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 (); |