diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2009-09-10 02:25:53 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2009-09-10 02:25:53 +0000 |
| commit | 50405cd07fc312c5e0c75776067b53e965d3faf4 (patch) | |
| tree | ddaa4920dcf430620d6a39a938d3ba6af361bef3 /lisp/startup.el | |
| parent | 7ae624301eaf097a367628a4ccac6cbc756aa5ba (diff) | |
| download | emacs-50405cd07fc312c5e0c75776067b53e965d3faf4.tar.gz | |
* startup.el (command-line-normalize-file-name): On Windows and
MS-DOS, also convert C:\/ and C:\\ (two backslashes) into C:/.
Diffstat (limited to 'lisp/startup.el')
| -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 fa4a2546075..1d534d12e09 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -2352,6 +2352,9 @@ A fancy display is used on graphic displays, normal otherwise." ;; However, /// at the beginning is supposed to mean just /, not //. (if (string-match "^///+" file) (setq file (replace-match "/" t t file))) + (and (memq system-type '(ms-dos windows-nt)) + (string-match "^[A-Za-z]:\\(\\\\[\\\\/]\\)" file) ; C:\/ or C:\\ + (setq file (replace-match "/" t t file 1))) (while (string-match "//+" file 1) (setq file (replace-match "/" t t file))) file)) |