Use path-separator with -L, rather than just :

[bpt/emacs.git] / lisp / startup.el

diff --git a/lisp/startup.el b/lisp/startup.el
index 2394c73..88ec1f3 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -2219,7 +2219,7 @@ A fancy display is used on graphic displays, normal otherwise."
                   ;; -L :/foo adds /foo to the _end_ of load-path.
                   (let (append)
                     (if (string-match-p
-                         "\\`:"
+                         (format "\\`%s" path-separator)
                          (setq tem (or argval (pop command-line-args-left))))
                         (setq tem (substring tem 1)
                               append t))