procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(run-hook-with-args, run-hook-list-with-args): Safeguard

Browse source 
against a t in the global value of hook variables.
This commit is contained in:
Richard M. Stallman 1995-11-10 04:48:27 +00:00
parent ebeafce6a5
commit 77d92e0582
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/eval.c
View file

@ -1959,7 +1959,10 @@ run_hook_with_args (nargs, args, cond)
globals = XCONS (globals)->cdr)
{
args[0] = XCONS (globals)->car;
ret = Ffuncall (nargs, args);
/* In a global value, t should not occur. If it does, we
must ignore it to avoid an endless loop. */
if (!EQ (args[0], Qt))
ret = Ffuncall (nargs, args);
}
}
else
@ -2007,7 +2010,10 @@ run_hook_list_with_args (funlist, nargs, args)
globals = XCONS (globals)->cdr)
{
args[0] = XCONS (globals)->car;
Ffuncall (nargs, args);
/* In a global value, t should not occur. If it does, we
must ignore it to avoid an endless loop. */
if (!EQ (args[0], Qt))
Ffuncall (nargs, args);
}
}
else