Mercurial > emacs
comparison lisp/w32-fns.el @ 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 | 4c03111f81ac |
| children | 5298b23b61be |
comparison
equal
deleted
inserted
replaced
| 32715:5cb66e7e794d | 32716:84e69ba71a2b |
|---|---|
| 235 (defun make-auto-save-file-name () | 235 (defun make-auto-save-file-name () |
| 236 "Return file name to use for auto-saves of current buffer. | 236 "Return file name to use for auto-saves of current buffer. |
| 237 Does not consider `auto-save-visited-file-name' as that variable is checked | 237 Does not consider `auto-save-visited-file-name' as that variable is checked |
| 238 before calling this function. You can redefine this for customization. | 238 before calling this function. You can redefine this for customization. |
| 239 See also `auto-save-file-name-p'." | 239 See also `auto-save-file-name-p'." |
| 240 (convert-standard-filename (original-make-auto-save-file-name))) | 240 (let ((filename (original-make-auto-save-file-name))) |
| 241 ;; Don't modify remote (ange-ftp) filenames | |
| 242 (if (string-match "^/\\w+@[-A-Za-z0-9._]+:" filename) | |
| 243 filename | |
| 244 (convert-standard-filename filename)))) | |
| 241 | 245 |
| 242 (defun convert-standard-filename (filename) | 246 (defun convert-standard-filename (filename) |
| 243 "Convert a standard file's name to something suitable for the current OS. | 247 "Convert a standard file's name to something suitable for the current OS. |
| 244 This function's standard definition is trivial; it just returns the argument. | 248 This function's standard definition is trivial; it just returns the argument. |
| 245 However, on some systems, the function is redefined | 249 However, on some systems, the function is redefined |