changeset 32716:84e69ba71a2b

(make-auto-save-file-name): Don't apply conversion to remote (ange-ftp) file names.
author Andrew Innes <andrewi@gnu.org>
date Sat, 21 Oct 2000 13:11:56 +0000
parents 5cb66e7e794d
children c2eaf354c3ba
files lisp/w32-fns.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/w32-fns.el	Sat Oct 21 08:57:18 2000 +0000
+++ b/lisp/w32-fns.el	Sat Oct 21 13:11:56 2000 +0000
@@ -237,7 +237,11 @@
 Does not consider `auto-save-visited-file-name' as that variable is checked
 before calling this function.  You can redefine this for customization.
 See also `auto-save-file-name-p'."
-  (convert-standard-filename (original-make-auto-save-file-name)))
+  (let ((filename (original-make-auto-save-file-name)))
+    ;; Don't modify remote (ange-ftp) filenames
+    (if (string-match "^/\\w+@[-A-Za-z0-9._]+:" filename)
+	filename
+      (convert-standard-filename filename))))
 
 (defun convert-standard-filename (filename)
   "Convert a standard file's name to something suitable for the current OS.