diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-10-03 09:11:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-10-03 09:11:08 +0000 |
| commit | 53305c02a09d2ba5b75f6e872af9fbb33d2c19b4 (patch) | |
| tree | 93d688e6083f7b44ceed4984c12bcb49acd34a01 /src/eval.c | |
| parent | 5a6f1a3b190f41619890f68cd8e84e688f336ed4 (diff) | |
| download | emacs-53305c02a09d2ba5b75f6e872af9fbb33d2c19b4.tar.gz | |
(run_hook_with_args_2): New function.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 14 |
1 files changed, 14 insertions, 0 deletions
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 |