From: Richard M. Stallman Date: Tue, 3 Oct 1995 09:11:08 +0000 (+0000) Subject: (run_hook_with_args_2): New function. X-Git-Tag: emacs-19.34~2757 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7d48558fef0502a8839510c014512e4cbd9b47f2;p=emacs.git (run_hook_with_args_2): New function. --- diff --git a/src/eval.c b/src/eval.c index 938b20cd824..69ce3f35c54 100644 --- a/src/eval.c +++ b/src/eval.c @@ -2017,6 +2017,20 @@ run_hook_list_with_args (funlist, nargs, args) UNGCPRO; return Qnil; } + +/* Run the hook HOOK, giving each function the two args ARG1 and ARG2. */ + +void +run_hook_with_args_2 (hook, arg1, arg2) + Lisp_Object hook, arg1, arg2; +{ + Lisp_Object temp[3]; + temp[0] = hook; + temp[1] = arg1; + temp[2] = arg2; + + Frun_hook_with_args (3, temp); +} /* Apply fn to arg */ Lisp_Object