martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(command-line-normalize-file-name):

Browse Source 
Don't collapse // at start of file name.
This commit is contained in:
Richard M. Stallman
1996-02-28 00:30:49 +00:00
parent a478a9ce32
commit aeab376f9f
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/startup.el
View File

@@ -911,7 +911,9 @@ Type \\[describe-distribution] for information on getting the latest version."))
(defun command-line-normalize-file-name (file)
"Collapse multiple slashes to one, to handle non-Emacs file names."
(while (string-match "//+" file)
;; Use arg 1 so that we don't collapse // at the start of the file name.
;; That is significant on some systems.
(while (string-match "//+" file 1)
(setq file (replace-match "/" t t file)))
file)