# HG changeset patch
# User Simon Marshall <simon@gnu.org>
# Date 807192171 0
# Node ID cac1b80e43be9d36dc5bd6cbf2132a6997c9571d
# Parent  2f4bbd557180698f4f0bc564a833147f582713ad
Declare hook running functions.

diff -r 2f4bbd557180 -r cac1b80e43be src/lisp.h
--- 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 ();