Commit 57f2b3e4 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 2cd0169d
......@@ -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))
;; Use invocation-directory for Info only if we used it for
;; exec-directory also.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment