diff options
| author | Richard M. Stallman | 1996-02-28 00:30:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-02-28 00:30:49 +0000 |
| commit | aeab376f9f294b014c18a04ddd8978e2fc35bb9d (patch) | |
| tree | aeb1a12bb1212f1857190d0c4601efe65979f9b3 /lisp | |
| parent | a478a9ce3220afaa3bff55a49af0bb4681fe66c4 (diff) | |
| download | emacs-aeab376f9f294b014c18a04ddd8978e2fc35bb9d.tar.gz emacs-aeab376f9f294b014c18a04ddd8978e2fc35bb9d.zip | |
(command-line-normalize-file-name):
Don't collapse // at start of file name.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/startup.el | 4 |
1 files changed, 3 insertions, 1 deletions
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.")) | |||
| 911 | 911 | ||
| 912 | (defun command-line-normalize-file-name (file) | 912 | (defun command-line-normalize-file-name (file) |
| 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 | (while (string-match "//+" file) | 914 | ;; Use arg 1 so that we don't collapse // at the start of the file name. |
| 915 | ;; That is significant on some systems. | ||
| 916 | (while (string-match "//+" file 1) | ||
| 915 | (setq file (replace-match "/" t t file))) | 917 | (setq file (replace-match "/" t t file))) |
| 916 | file) | 918 | file) |
| 917 | 919 | ||