diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-08-06 06:09:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-08-06 06:09:59 +0000 |
| commit | 1086f064fc1d1b9c27b48fcbd576db69e9ab6aef (patch) | |
| tree | cfab9dc459b8031dfa4b6a16b6545b17c9b81567 /src/eval.c | |
| parent | 21d2dfa064231adb3fffec49593492917a78606a (diff) | |
| download | emacs-1086f064fc1d1b9c27b48fcbd576db69e9ab6aef.tar.gz | |
(run_hook_with_args): Move the GCPRO2; add UNGCPRO.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/eval.c b/src/eval.c index 07fbf871b68..938b20cd824 100644 --- a/src/eval.c +++ b/src/eval.c @@ -1927,8 +1927,6 @@ run_hook_with_args (nargs, args, cond) val = find_symbol_value (sym); ret = (cond == until_failure ? Qt : Qnil); - GCPRO2 (sym, val); - if (EQ (val, Qunbound) || NILP (val)) return ret; else if (!CONSP (val) || EQ (XCONS (val)->car, Qlambda)) @@ -1938,6 +1936,8 @@ run_hook_with_args (nargs, args, cond) } else { + GCPRO2 (sym, val); + for (; CONSP (val) && ((cond == to_completion) || (cond == until_success ? NILP (ret) @@ -1966,6 +1966,8 @@ run_hook_with_args (nargs, args, cond) ret = Ffuncall (nargs, args); } } + + UNGCPRO; return ret; } } |