(Info-directory-list): Treat windows-nt like ms-dos.

diff --git a/lisp/info.el b/lisp/info.el
index 54b554719b5c13ed8a7461a1c8d71eaa4ca15acd..000ceb771380dc7d5231b414199e2d88ff79e7ed 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -55,7 +55,9 @@ in paths.el.")
 
 (defvar Info-directory-list
   (let ((path (getenv "INFOPATH"))
-       (sep (if (eq system-type 'ms-dos) ";" ":"))
+       (sep (if (or (eq system-type 'ms-dos) 
+                    (eq system-type 'windows-nt))
+                ";" ":"))
        (sibling (expand-file-name "../info/" (invocation-directory))))
     (if path
        (let ((list nil)
@@ -68,9 +70,9 @@ in paths.el.")
          (nreverse list))
       (if (or (member sibling Info-default-directory-list)
              (not (file-exists-p sibling))
-             ;; On MS-DOS, we use movable executables always,
+             ;; On DOS/NT, we use movable executables always,
              ;; and we must always find the Info dir at run time.
-             (if (eq system-type 'ms-dos)
+             (if (or (eq system-type 'ms-dos) (eq system-type 'windows-nt))
                  nil
                ;; Use invocation-directory for Info only if we used it for
                ;; exec-directory also.