mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(make-backup-file-name-1) [windowsnt, ms-dos]: Remove

Browse source 
superfluous calls to subst-char-in-string; instead apply
expand-file-name after convert-standard-filename to ensure
expected directory separators are used.
This commit is contained in:
Andrew Innes 2000-10-23 17:40:16 +00:00
parent 16ed4c479e
commit 446c097e30
2 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/files.el
View file

@ -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_"