diff options
| -rw-r--r-- | lisp/files.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/files.el b/lisp/files.el index b46cf4e566e..5015964928f 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -2297,6 +2297,9 @@ doesn't exist, it is created." | |||
| 2297 | ;; and replace the leading "x:" with "/drive_x". | 2297 | ;; and replace the leading "x:" with "/drive_x". |
| 2298 | (or (file-name-absolute-p file) | 2298 | (or (file-name-absolute-p file) |
| 2299 | (setq file (expand-file-name file))) ; make defaults explicit | 2299 | (setq file (expand-file-name file))) ; make defaults explicit |
| 2300 | ;; Replace any invalid file-name characters (for the | ||
| 2301 | ;; case of backing up remote files). | ||
| 2302 | (setq file (convert-standard-filename file)) | ||
| 2300 | (setq dir-sep-string (char-to-string directory-sep-char)) | 2303 | (setq dir-sep-string (char-to-string directory-sep-char)) |
| 2301 | (or (eq directory-sep-char ?/) | 2304 | (or (eq directory-sep-char ?/) |
| 2302 | (subst-char-in-string ?/ ?\\ file)) | 2305 | (subst-char-in-string ?/ ?\\ file)) |