changeset 1775:f9ac4c0d8b72

* fileio.c (Fdo_auto_save): Add CURRENT_ONLY argument, as described in doc string.
author Jim Blandy <jimb@redhat.com>
date Thu, 14 Jan 1993 15:08:15 +0000
parents 04cd18603ec5
children 20c6f4aa5843
files src/fileio.c
diffstat 1 files changed, 10 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/src/fileio.c	Thu Jan 14 15:07:32 1993 +0000
+++ b/src/fileio.c	Thu Jan 14 15:08:15 1993 +0000
@@ -2867,8 +2867,8 @@
 This file is not the file you visited; that changes only when you save.\n\n\
 Non-nil first argument means do not print any message if successful.\n\
 Non-nil second argument means save only current buffer.")
-  (nomsg)
-     Lisp_Object nomsg;
+  (no_message, current_only)
+     Lisp_Object no_message, current_only;
 {
   struct buffer *old = current_buffer, *b;
   Lisp_Object tail, buf;
@@ -2881,7 +2881,7 @@
 
   auto_saving = 1;
   if (minibuf_level)
-    nomsg = Qt;
+    no_message = Qt;
 
   /* Vrun_hooks is nil before emacs is dumped, and inc-vers.el will
      eventually call do-auto-save, so don't err here in that case. */
@@ -2893,6 +2893,11 @@
     {
       buf = XCONS (XCONS (tail)->car)->cdr;
       b = XBUFFER (buf);
+
+      if (!NILP (current_only)
+	  && b != current_buffer)
+	continue;
+      
       /* Check for auto save enabled
 	 and file changed since last auto save
 	 and file changed since last real save.  */
@@ -2919,7 +2924,7 @@
 	      continue;
 	    }
 	  set_buffer_internal (b);
-	  if (!auto_saved && NILP (nomsg))
+	  if (!auto_saved && NILP (no_message))
 	    message1 ("Auto-saving...");
 	  internal_condition_case (auto_save_1, Qt, auto_save_error);
 	  auto_saved++;
@@ -2932,7 +2937,7 @@
   /* Prevent another auto save till enough input events come in.  */
   record_auto_save ();
 
-  if (auto_saved && NILP (nomsg))
+  if (auto_saved && NILP (no_message))
     message1 (omessage ? omessage : "Auto-saving...done");
 
   auto_saving = 0;