diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-02-28 00:30:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-02-28 00:30:49 +0000 |
| commit | 7862c5b138a93437ee1fc6d4f370469ee9e50d30 (patch) | |
| tree | 98b386cd5a9b5ebfb589877468a610f7a5c5f78d /lisp/startup.el | |
| parent | 9e0764ac0d34555d457753957a6079a10da68d75 (diff) | |
| download | emacs-7862c5b138a93437ee1fc6d4f370469ee9e50d30.tar.gz | |
(command-line-normalize-file-name):
Don't collapse // at start of file name.
Diffstat (limited to 'lisp/startup.el')
| -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.")) (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) |