Mercurial > hg > xemacs-beta

diff src/eval.c @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
line wrap: on
line diff
--- a/src/eval.c	Mon Aug 13 08:45:53 2007 +0200
+++ b/src/eval.c	Mon Aug 13 08:46:35 2007 +0200
@@ -114,7 +114,7 @@
 /* Pointer to first unused element in specpdl.  */
 struct specbinding *specpdl_ptr;
 
-/* specpdl_ptr - specpdl.  Callers outside this this file should use
+/* specpdl_ptr - specpdl.  Callers outside this file should use
  *  specpdl_depth () function-call */
 static int specpdl_depth_counter;
 
@@ -4620,13 +4620,15 @@
 /*                     The special binding stack                      */
 /**********************************************************************/
 
+#define min_max_specpdl_size 400
+
 static void
 grow_specpdl (void)
 {
   if (specpdl_size >= max_specpdl_size)
     {
-      if (max_specpdl_size < 400)
-	max_specpdl_size = 400;
+      if (max_specpdl_size < min_max_specpdl_size)
+	max_specpdl_size = min_max_specpdl_size;
       if (specpdl_size >= max_specpdl_size)
 	{
 	  if (!NILP (Vdebug_on_error) || !NILP (Vdebug_on_signal))