Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 03:17:36 +00:00
Code Issues Projects Releases Packages 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
Show stats 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)