From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 29 Dec 2001 20:12:45 +0000 (+0000)
Subject: (Fdo_auto_save): If NO_MESSAGE, don't call push_message.
X-Git-Tag: ttn-vms-21-2-B4~17422
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=38da540df8679c8564ae460ca07589f1de469c11;p=emacs.git

(Fdo_auto_save): If NO_MESSAGE, don't call push_message.
---

diff --git a/src/fileio.c b/src/fileio.c
index ad2d210530d..b1b555fafc4 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -5539,7 +5539,16 @@ A non-nil CURRENT-ONLY argument means save only current buffer.  */)
   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 @@ A non-nil CURRENT-ONLY argument means save only current buffer.  */)
   /* 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"));