diff options
| author | Richard M. Stallman | 1996-02-28 23:30:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-02-28 23:30:24 +0000 |
| commit | dcccc83257f964140d38bab89e675aa5c87ba660 (patch) | |
| tree | d6150ac69e03f3bcc55cde3185132537a13ab974 | |
| parent | 22cc077c309591b393e23b8033ffb3f134b59e69 (diff) | |
| download | emacs-dcccc83257f964140d38bab89e675aa5c87ba660.tar.gz emacs-dcccc83257f964140d38bab89e675aa5c87ba660.zip | |
(command-line-normalize-file-name): Convert /// at beginning to just /.
| -rw-r--r-- | lisp/startup.el | 3 |
1 files changed, 3 insertions, 0 deletions
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.")) | |||
| 913 | "Collapse multiple slashes to one, to handle non-Emacs file names." | 913 | "Collapse multiple slashes to one, to handle non-Emacs file names." |
| 914 | ;; Use arg 1 so that we don't collapse // at the start of the file name. | 914 | ;; Use arg 1 so that we don't collapse // at the start of the file name. |
| 915 | ;; That is significant on some systems. | 915 | ;; That is significant on some systems. |
| 916 | ;; However, /// at the beginning is supposed to mean just /, not //. | ||
| 917 | (if (string-match "^///+" file) | ||
| 918 | (setq file (replace-match "/" t t file))) | ||
| 916 | (while (string-match "//+" file 1) | 919 | (while (string-match "//+" file 1) |
| 917 | (setq file (replace-match "/" t t file))) | 920 | (setq file (replace-match "/" t t file))) |
| 918 | file) | 921 | file) |