(Info-directory-list): Use path-separator.

diff --git a/lisp/info.el b/lisp/info.el
index 3972e16ab90805d88e5665122cc4d8cf17652b2c..cb36fac8dded542567c05c1b2bccf8b5afd0b89a 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -55,16 +55,13 @@ in paths.el.")
 
 (defvar Info-directory-list
   (let ((path (getenv "INFOPATH"))
-       (sep (if (or (eq system-type 'ms-dos) 
-                    (eq system-type 'windows-nt))
-                ";" ":"))
        (sibling (if installation-directory
                     (expand-file-name "info/" installation-directory))))
     (if path
        (let ((list nil)
              idx)
          (while (> (length path) 0)
-           (setq idx (or (string-match sep path) (length path))
+           (setq idx (or (string-match path-separator path) (length path))
                  list (cons (substring path 0 idx) list)
                  path (substring path (min (1+ idx)
                                            (length path)))))