Mercurial > emacs
diff lisp/files.el @ 32783:9eb5cd921a28
(make-backup-file-name-1) [windowsnt, ms-dos]: Remove
superfluous calls to subst-char-in-string; instead apply
expand-file-name after convert-standard-filename to ensure
expected directory separators are used.
| author | Andrew Innes <andrewi@gnu.org> |
|---|---|
| date | Mon, 23 Oct 2000 17:37:56 +0000 |
| parents | d06fc5f25d6c |
| children | 5fea5d3d935b |
line wrap: on
line diff
--- a/lisp/files.el Mon Oct 23 17:33:29 2000 +0000 +++ b/lisp/files.el Mon Oct 23 17:37:56 2000 +0000 @@ -2327,12 +2327,8 @@ (setq file (expand-file-name file))) ; make defaults explicit ;; Replace any invalid file-name characters (for the ;; case of backing up remote files). - (setq file (convert-standard-filename file)) + (setq file (expand-file-name (convert-standard-filename file))) (setq dir-sep-string (char-to-string directory-sep-char)) - (or (eq directory-sep-char ?/) - (subst-char-in-string ?/ ?\\ file)) - (or (eq directory-sep-char ?\\) - (subst-char-in-string ?\\ ?/ file)) (if (eq (aref file 1) ?:) (setq file (concat dir-sep-string "drive_"