Mercurial > emacs

changeset 9782:7224fba93c27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Info-directory-list): Treat windows-nt like ms-dos.
author Richard M. Stallman <rms@gnu.org>
date Tue, 01 Nov 1994 05:54:58 +0000
parents ae6fed248fb9
children 7d8fc4b4f60d
files lisp/info.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Tue Nov 01 05:52:42 1994 +0000
+++ b/lisp/info.el	Tue Nov 01 05:54:58 1994 +0000
@@ -55,7 +55,9 @@
 
 (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 @@
 	  (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.