mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-03 20:24:29 +00:00
Code Issues Releases Activity

(Info-directory-list): For msdos, don't check for

Browse Source 
exec-directory != ../lib-src (since we use wrapped binaries).
This commit is contained in:
Richard M. Stallman 1994-06-21 15:39:44 +00:00
parent 8d45a19e51
commit 718b4478bf
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/info.el
View File

@ -65,10 +65,15 @@ in paths.el.")
(nreverse list))
(if (or (member sibling Info-default-directory-list)
(not (file-exists-p sibling))
;; Use invocation-directory for Info only if we used it for
;; exec-directory also.
(not (string= exec-directory
(expand-file-name "../lib-src/" (invocation-directory)))))
;; On MS-DOS, we use movable executables always,
;; and we must always find the Info dir at run time.
(if (eq system-type 'ms-dos)
nil
;; Use invocation-directory for Info only if we used it for
;; exec-directory also.
(not (string= exec-directory
(expand-file-name "../lib-src/"
(invocation-directory))))))
Info-default-directory-list
(reverse (cons sibling (cdr (reverse Info-default-directory-list)))))))
"List of directories to search for Info documentation files.