From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 2 May 2000 13:41:03 +0000 (+0000)
Subject: (Fsignal): If lisp_eval_depth or spepdl_size are near
X-Git-Tag: emacs-pretest-21.0.90~4079
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8515044c3212ba5dd943b76cb457b1a8214f0d88;p=emacs.git

(Fsignal): If lisp_eval_depth or spepdl_size are near
to the limits, increase the limits.
---

diff --git a/src/eval.c b/src/eval.c
index 0efa96f07a7..d616addde43 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -1296,6 +1296,13 @@ See also the function `condition-case'.")
   for (; handlerlist; handlerlist = handlerlist->next)
     {
       register Lisp_Object clause;
+      
+      if (lisp_eval_depth + 20 > max_lisp_eval_depth)
+	max_lisp_eval_depth = lisp_eval_depth + 20;
+  
+      if (specpdl_size + 40 > max_specpdl_size)
+	max_specpdl_size = specpdl_size + 40;
+  
       clause = find_handler_clause (handlerlist->handler, conditions,
 				    error_symbol, data, &debugger_value);