# HG changeset patch
# User Andrew Innes <andrewi@gnu.org>
# Date 972133916 0
# Node ID 84e69ba71a2b0952b29eb078f87c0c1862a696f8
# Parent  5cb66e7e794d4f2171ec8f8c827686088463cf54
(make-auto-save-file-name): Don't apply conversion to
remote (ange-ftp) file names.

diff -r 5cb66e7e794d -r 84e69ba71a2b lisp/w32-fns.el
--- 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.