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