From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 3 Oct 2004 17:40:07 +0000 (+0000)
Subject: * fileio.c (auto_save_1) Call Ffile_modes for remote files.
X-Git-Tag: ttn-vms-21-2-B4~4743
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=38fe4f64eda50ce65c8108c4aff665b037358a80;p=emacs.git

* fileio.c (auto_save_1) Call Ffile_modes for remote files.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 73fb09883eb..e58ddb74284 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2004-10-03  Michael Albinus  <michael.albinus@gmx.de>
+
+	* fileio.c (auto_save_1) Call Ffile_modes for remote files.
+
 2004-09-30  Kenichi Handa  <handa@m17n.org>
 
 	* process.c (send_process): Free composition data.
diff --git a/src/fileio.c b/src/fileio.c
index a346b4df260..c10969378bc 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -5718,6 +5718,9 @@ auto_save_1 ()
       && stat (SDATA (current_buffer->filename), &st) >= 0)
     /* But make sure we can overwrite it later!  */
     auto_save_mode_bits = st.st_mode | 0600;
+  else if (! NILP (current_buffer->filename))
+    /* Remote files don't cooperate with stat.  */
+    auto_save_mode_bits = XINT (Ffile_modes (current_buffer->filename)) | 0600;
   else
     auto_save_mode_bits = 0666;