From 57f2b3e4f3beff5cb29944f9101a5719f154660e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 1 Nov 1994 05:54:58 +0000 Subject: [PATCH] (Info-directory-list): Treat windows-nt like ms-dos. --- lisp/info.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/info.el b/lisp/info.el index 54b554719b5..000ceb77138 100644 --- 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. -- 2.39.5