Mercurial > emacs
changeset 7990:6be46752d57f
(Info-directory-list): For msdos, don't check for
exec-directory != ../lib-src (since we use wrapped binaries).
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 21 Jun 1994 15:39:44 +0000 |
| parents | 616f4e2e2120 |
| children | f2e16be5a263 |
| files | lisp/info.el |
| diffstat | 1 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Tue Jun 21 01:06:13 1994 +0000 +++ b/lisp/info.el Tue Jun 21 15:39:44 1994 +0000 @@ -65,10 +65,15 @@ (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.