(grow_specpdl): Increase max_specpdl_size before Fsignal.

[bpt/emacs.git] / src / eval.c

diff --git a/src/eval.c b/src/eval.c
index f3cb113..3974568 100644 (file)
--- 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;