From: Chong Yidong <cyd@stupidchicken.com>
Date: Tue, 5 Aug 2008 21:44:01 +0000 (+0000)
Subject: (Vauto_save_list_file_name): Move here from file.el.
X-Git-Tag: emacs-pretest-22.2.90~38
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f8a12fae315e95f326469e63268b60bd9a9ba738;p=emacs.git

(Vauto_save_list_file_name): Move here from file.el.
(auto_save_1): Update modtime when auto-save-list-file-name is on.
---

diff --git a/src/fileio.c b/src/fileio.c
index 4f703a8a743..81836bd8213 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -208,6 +208,9 @@ Lisp_Object Vwrite_region_annotations_so_far;
 /* File name in which we write a list of all our auto save files.  */
 Lisp_Object Vauto_save_list_file_name;
 
+/* Whether or not files are auto-saved into themselves.  */
+Lisp_Object Vauto_save_visited_file_name;
+
 /* Function to call to read a file name.  */
 Lisp_Object Vread_file_name_function;
 
@@ -5824,9 +5827,9 @@ auto_save_1 ()
     }
 
   return
-    Fwrite_region (Qnil, Qnil,
-		   current_buffer->auto_save_file_name,
-		   Qnil, Qlambda, Qnil, Qnil);
+    Fwrite_region (Qnil, Qnil, current_buffer->auto_save_file_name, Qnil,
+		   NILP (Vauto_save_visited_file_name) ? Qlambda : Qt,
+		   Qnil, Qnil);
 }
 
 static Lisp_Object
@@ -6772,6 +6775,11 @@ shortly after Emacs reads your `.emacs' file, if you have not yet given it
 a non-nil value.  */);
   Vauto_save_list_file_name = Qnil;
 
+  DEFVAR_LISP ("auto-save-visited-file-name", &Vauto_save_visited_file_name,
+	       doc: /* Non-nil says auto-save a buffer in the file it is visiting, when practical.
+Normally auto-save files are written under other names.  */);
+  Vauto_save_visited_file_name = Qnil;
+
 #ifdef HAVE_FSYNC
   DEFVAR_BOOL ("write-region-inhibit-fsync", &write_region_inhibit_fsync,
 	       doc: /* *Non-nil means don't call fsync in `write-region'.