(Info-directory-list): For msdos, use ";" instead of

":" as delimiter in INFOPATH.

diff --git a/lisp/info.el b/lisp/info.el
index fc20c4b61e7264eef7a9d550770db52083e2f1a2..524b0b74af5d8cb31ea36d57307aa4e2ab2cd8c8 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -52,12 +52,13 @@ in paths.el.")
 
 (defvar Info-directory-list
   (let ((path (getenv "INFOPATH"))
+       (sep (if (eq system-type 'ms-dos) ";" ":"))
        (sibling (expand-file-name "../info/" (invocation-directory))))
     (if path
        (let ((list nil)
              idx)
          (while (> (length path) 0)
-           (setq idx (or (string-match ":" path) (length path))
+           (setq idx (or (string-match sep path) (length path))
                  list (cons (substring path 0 idx) list)
                  path (substring path (min (1+ idx)
                                            (length path)))))