Mercurial > emacs
diff src/eval.c @ 1452:ed79bb8047e8
(grow_specpdl): Increase max_specpdl_size before Fsignal.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 20 Oct 1992 06:13:00 +0000 |
parents | ab2d88e2505b |
children | b327816041d1 |
line wrap: on
line diff
--- a/src/eval.c Tue Oct 20 06:12:43 1992 +0000 +++ b/src/eval.c Tue Oct 20 06:13:00 1992 +0000 @@ -2045,9 +2045,11 @@ 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;