aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorEli Zaretskii2000-06-22 14:58:38 +0000
committerEli Zaretskii2000-06-22 14:58:38 +0000
commitb79a846b3704a3d83a985fa5236e590e476d139d (patch)
treebf81ad26882213f37af29fb8af506b2f9999969a /lisp
parent09def38b4d617ef48e989cc6c2fa424a2895676f (diff)
downloademacs-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.el3
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))