diff options
| author | Richard M. Stallman <[email protected]> | 1992-10-20 06:13:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1992-10-20 06:13:00 +0000 |
| commit | debee8fea7ebf9037f885f5d09d01f3532a9659e (patch) | |
| tree | 5c6fdc83534abd2b0829e07336b411f4bb73ab67 /src/eval.c | |
| parent | f275fd9a94fb8203c80ead001dce56fae8217d6d (diff) | |
(grow_specpdl): Increase max_specpdl_size before Fsignal.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/eval.c b/src/eval.c index f3cb1135d2..3974568329 100644 --- a/src/eval.c +++ b/src/eval.c @@ -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; |