diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-02-28 23:30:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-02-28 23:30:24 +0000 |
| commit | 3b6f9b7a8b350c8b9bd212fd35b480e2d3b14c50 (patch) | |
| tree | 320a2afec3fd60a69d54498d11eca4c702bcf336 | |
| parent | e738e05a14a3eb6b16444b96e1a4a7caf0336a1b (diff) | |
| download | emacs-3b6f9b7a8b350c8b9bd212fd35b480e2d3b14c50.tar.gz | |
(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.")) "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) |