diff lisp/w32-fns.el @ 32716:84e69ba71a2b

(make-auto-save-file-name): Don't apply conversion to remote (ange-ftp) file names.

--- 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.