mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1994-11-01 05:54:58 +00:00
parent 2cd0169dc8
commit 57f2b3e4f3
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/info.el
View File

@ -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.