diff options
| author | Andrew Innes <andrewi@gnu.org> | 2000-10-21 13:11:56 +0000 |
|---|---|---|
| committer | Andrew Innes <andrewi@gnu.org> | 2000-10-21 13:11:56 +0000 |
| commit | 022b8155041236e19a745482591ab968250c86cf (patch) | |
| tree | 54c932f7dfdd15759a93fd337960b3f54585676e /lisp/w32-fns.el | |
| parent | 18ad482131835b5e32bc5de50f9cb3a254967021 (diff) | |
| download | emacs-022b8155041236e19a745482591ab968250c86cf.tar.gz | |
(make-auto-save-file-name): Don't apply conversion to
remote (ange-ftp) file names.
Diffstat (limited to 'lisp/w32-fns.el')
| -rw-r--r-- | lisp/w32-fns.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el index ea8f6ffbddd..0f30dd63bea 100644 --- a/lisp/w32-fns.el +++ b/lisp/w32-fns.el @@ -237,7 +237,11 @@ You should set this to t when using a non-system shell.\n\n")))) 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. |