# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1009656765 0
# Node ID f2c23e762b64cae333bae0dc3c3e9a9926f4e83a
# Parent  4c72bc09992bec26b4cd1a4c900e94118f33587f
(Fdo_auto_save): If NO_MESSAGE, don't call push_message.

diff -r 4c72bc09992b -r f2c23e762b64 src/fileio.c
--- a/src/fileio.c	Sat Dec 29 18:02:49 2001 +0000
+++ b/src/fileio.c	Sat Dec 29 20:12:45 2001 +0000
@@ -5539,7 +5539,16 @@
   Lisp_Object lispstream;
   int count = specpdl_ptr - specpdl;
   int orig_minibuffer_auto_raise = minibuffer_auto_raise;
-  int message_p = push_message ();
+  int message_p = 0;
+
+  if (max_specpdl_size < specpdl_size + 40)
+    max_specpdl_size = specpdl_size + 40;
+
+  if (minibuf_level)
+    no_message = Qt;
+
+  if (NILP (no_message));
+    message_p = push_message ();
   
   /* Ordinarily don't quit within this function,
      but don't make it impossible to quit (in case we get hung in I/O).  */
@@ -5549,9 +5558,6 @@
   /* No GCPRO needed, because (when it matters) all Lisp_Object variables
      point to non-strings reached from Vbuffer_alist.  */
 
-  if (minibuf_level)
-    no_message = Qt;
-
   if (!NILP (Vrun_hooks))
     call1 (Vrun_hooks, intern ("auto-save-hook"));