(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.

1 files changed, 1 insertions, 5 deletions

diff --git a/lisp/files.el b/lisp/files.el
index 0cc2f9b6ee6..e0277befbc1 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2327,12 +2327,8 @@ doesn't exist, it is created."
                   (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_"