mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -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

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2000-10-23 Andrew Innes <andrewi@gnu.org>
* files.el (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.
2000-10-23 Eli Zaretskii <eliz@is.elta.co.il>
* info.el (Info-file-list-for-emacs): Add an entry for Eshell.

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