From dcccc83257f964140d38bab89e675aa5c87ba660 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 28 Feb 1996 23:30:24 +0000 Subject: [PATCH] (command-line-normalize-file-name): Convert /// at beginning to just /. --- lisp/startup.el | 3 +++ 1 file changed, 3 insertions(+) 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) -- 2.39.5