mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-31 17:30:54 -08:00
Code Issues Projects Releases Wiki Activity

(grow_specpdl): Increase max_specpdl_size before Fsignal.

Browse source
This commit is contained in:
Richard M. Stallman 1992-10-20 06:13:00 +00:00
parent f275fd9a94
commit debee8fea7
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/eval.c
View file

@ -2045,9 +2045,11 @@ grow_specpdl ()
max_specpdl_size = 400;
if (specpdl_size >= max_specpdl_size)
{
if (!NILP (Vdebug_on_error))
/* Leave room for some specpdl in the debugger. */
max_specpdl_size = specpdl_size + 100;
Fsignal (Qerror,
Fcons (build_string ("Variable binding depth exceeds max-specpdl-size"), Qnil));
max_specpdl_size *= 2;
}
}
specpdl_size *= 2;