Mercurial > emacs
changeset 14703:2406878fba09
(command-line-normalize-file-name):
Don't collapse // at start of file name.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 28 Feb 1996 00:30:49 +0000 |
| parents | 6251b4796e2b |
| children | 6dbe9f47c0a1 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Wed Feb 28 00:29:43 1996 +0000 +++ b/lisp/startup.el Wed Feb 28 00:30:49 1996 +0000 @@ -911,7 +911,9 @@ (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)