changeset 42407:f2c23e762b64

(Fdo_auto_save): If NO_MESSAGE, don't call push_message.
author Richard M. Stallman <rms@gnu.org>
date Sat, 29 Dec 2001 20:12:45 +0000
parents 4c72bc09992b
children f8c910bc4ca1
files src/fileio.c
diffstat 1 files changed, 10 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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"));