(grow_specpdl): Increase max_specpdl_size before Fsignal.

1 files changed, 3 insertions, 1 deletions

diff --git a/src/eval.c b/src/eval.c
index f3cb1135d2b..3974568329f 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;