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 | |
parent | 21d2dfa064231adb3fffec49593492917a78606a (diff) | |
download | emacs-1086f064fc1d1b9c27b48fcbd576db69e9ab6aef.tar.gz |
(run_hook_with_args): Move the GCPRO2; add UNGCPRO.
Diffstat (limited to 'src')
-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; } } |