Revert "Raise default max-specpdl-size value"

This reverts commit bb9402e6e9c12938aee31b81e25511eb1f6335d2.

diff --git a/doc/lispref/variables.texi b/doc/lispref/variables.texi
index 568eb0f783638d05c67d7434a69fc270224b3ed1..1ec97e2f3de0d68466885d783912d6696613740e 100644 (file)
--- a/doc/lispref/variables.texi
+++ b/doc/lispref/variables.texi
@@ -322,7 +322,7 @@ that Lisp avoids infinite recursion on an ill-defined function.
 @code{max-lisp-eval-depth} provides another limit on depth of nesting.
 @xref{Definition of max-lisp-eval-depth,, Eval}.
 
-The default value is 1800.  Entry to the Lisp debugger increases the
+The default value is 1600.  Entry to the Lisp debugger increases the
 value, if there is little room left, to make sure the debugger itself
 has room to execute.
 @end defopt

diff --git a/src/eval.c b/src/eval.c
index d1f74751446952f13fd813e88c4e7f4131692f8f..4559a0e1f66d17cd1181538b9eae531f4f6a7a6f 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -219,7 +219,7 @@ void
 init_eval_once (void)
 {
   /* Don't forget to update docs (lispref node "Local Variables").  */
-  max_specpdl_size = 1800; /* 1600 is not enough for cl-generic.el.  */
+  max_specpdl_size = 1600; /* 1500 is not enough for cl-generic.el.  */
   max_lisp_eval_depth = 800;
   Vrun_hooks = Qnil;
   pdumper_do_now_and_after_load (init_eval_once_for_pdumper);