changeset 11632:ddbe0702ea95

(Fdo_auto_save): Record visited file name as well as auto-save file name in the auto-save-list-file-name file. Call Fexpand_file_name for auto-save-list-file-name.
author Richard M. Stallman <rms@gnu.org>
date Sun, 30 Apr 1995 19:50:56 +0000
parents f9170a6c2e6f
children e068b3b7b232
files src/fileio.c
diffstat 1 files changed, 12 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/fileio.c	Sun Apr 30 19:50:00 1995 +0000
+++ b/src/fileio.c	Sun Apr 30 19:50:56 1995 +0000
@@ -3796,12 +3796,14 @@
 
   if (STRINGP (Vauto_save_list_file_name))
     {
+      Lisp_Object listfile;
+      listfile = Fexpand_file_name (Vauto_save_list_file_name, Qnil);
 #ifdef DOS_NT
-      listdesc = open (XSTRING (Vauto_save_list_file_name)->data, 
+      listdesc = open (XSTRING (listfile)->data, 
 		       O_WRONLY | O_TRUNC | O_CREAT | O_TEXT,
 		       S_IREAD | S_IWRITE);
 #else  /* not DOS_NT */
-      listdesc = creat (XSTRING (Vauto_save_list_file_name)->data, 0666);
+      listdesc = creat (XSTRING (listfile)->data, 0666);
 #endif /* not DOS_NT */
     }
   else
@@ -3823,10 +3825,17 @@
 	b = XBUFFER (buf);
       
 	/* Record all the buffers that have auto save mode
-	   in the special file that lists them.  */
+	   in the special file that lists them.  For each of these buffers,
+	   Record visited name (if any) and auto save name.  */
 	if (STRINGP (b->auto_save_file_name)
 	    && listdesc >= 0 && do_handled_files == 0)
 	  {
+	    if (!NILP (b->filename))
+	      {
+		write (listdesc, XSTRING (b->filename)->data,
+		       XSTRING (b->filename)->size);
+	      }
+	    write (listdesc, "\n", 1);
 	    write (listdesc, XSTRING (b->auto_save_file_name)->data,
 		   XSTRING (b->auto_save_file_name)->size);
 	    write (listdesc, "\n", 1);