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

":" as delimiter in INFOPATH.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/info.el b/lisp/info.el
index fc20c4b61e7..524b0b74af5 100644
--- 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)))))