Commit cb9d21f8 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(run_hook_with_args): Move the GCPRO2; add UNGCPRO.

parent 5ab52d42
......@@ -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;
}
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment