From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 28 Feb 1996 23:30:24 +0000 (+0000)
Subject: (command-line-normalize-file-name): Convert /// at beginning to just /.
X-Git-Tag: emacs-19.34~1144
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dcccc83257f964140d38bab89e675aa5c87ba660;p=emacs.git

(command-line-normalize-file-name): Convert /// at beginning to just /.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 0365b785495..16214b17656 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -913,6 +913,9 @@ Type \\[describe-distribution] for information on getting the latest version."))
   "Collapse multiple slashes to one, to handle non-Emacs file names."
   ;; Use arg 1 so that we don't collapse // at the start of the file name.
   ;; That is significant on some systems.
+  ;; However, /// at the beginning is supposed to mean just /, not //.
+  (if (string-match "^///+" file)
+    (setq file (replace-match "/" t t file)))
   (while (string-match "//+" file 1)
     (setq file (replace-match "/" t t file)))
   file)