# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 825467449 0
# Node ID 2406878fba0946dcf2d6a6f71773b4188120108e
# Parent  6251b4796e2b1e93021be36dbfe8da20b9fc3801
(command-line-normalize-file-name):
Don't collapse // at start of file name.

diff -r 6251b4796e2b -r 2406878fba09 lisp/startup.el
--- 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)