From aeab376f9f294b014c18a04ddd8978e2fc35bb9d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 28 Feb 1996 00:30:49 +0000 Subject: [PATCH] (command-line-normalize-file-name): Don't collapse // at start of file name. --- lisp/startup.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/startup.el b/lisp/startup.el index b21fc83eebd..0365b785495 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -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) -- 2.39.5