Mercurial > emacs

changeset 32783:9eb5cd921a28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 14ce9aa3241a
children 0b93e0c39122
files lisp/files.el
diffstat 1 files changed, 1 insertions(+), 5 deletions(-) [+]
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_"