diff options
| author | Eli Zaretskii | 2000-06-22 14:58:38 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2000-06-22 14:58:38 +0000 |
| commit | b79a846b3704a3d83a985fa5236e590e476d139d (patch) | |
| tree | bf81ad26882213f37af29fb8af506b2f9999969a /lisp | |
| parent | 09def38b4d617ef48e989cc6c2fa424a2895676f (diff) | |
| download | emacs-b79a846b3704a3d83a985fa5236e590e476d139d.tar.gz emacs-b79a846b3704a3d83a985fa5236e590e476d139d.zip | |
(make-backup-file-name-1): On DOS/Windows, run the
backup file name through convert-standard-filename.
Diffstat (limited to 'lisp')
| -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)) |