From 7d48558fef0502a8839510c014512e4cbd9b47f2 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Tue, 3 Oct 1995 09:11:08 +0000
Subject: [PATCH] (run_hook_with_args_2): New function.

---
 src/eval.c | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

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
-- 
2.39.2