diff options
author | Richard M. Stallman <[email protected]> | 1994-01-07 11:58:27 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1994-01-07 11:58:27 +0000 |
commit | 47d53769121d39a84f49bf25be2c04c2fac59407 (patch) | |
tree | 9fd2e83f622742e92f3d0d51ff23a992e058f4dd /lisp | |
parent | f9890ae6334655efc4d647082acb01f18303e1b2 (diff) |
(Info-directory-list): Change last elt to ../info (expanded).
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/info.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/info.el b/lisp/info.el index a404204684..aa036de6b2 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -51,7 +51,8 @@ in paths.el.") "*Non-nil enables highlighting and fonts in Info nodes.") (defvar Info-directory-list - (let ((path (getenv "INFOPATH"))) + (let ((path (getenv "INFOPATH")) + (sibling (expand-file-name "../info/" (invocation-directory)))) (if path (let ((list nil) idx) @@ -61,7 +62,10 @@ in paths.el.") path (substring path (min (1+ idx) (length path))))) (nreverse list)) - Info-default-directory-list)) + (if (or (member sibling Info-default-directory-list) + (not (file-exists-p sibling))) + Info-default-directory-list + (reverse (cons sibling (cdr (reverse Info-default-directory-list))))))) "List of directories to search for Info documentation files. nil means not yet initialized. In this case, Info uses the environment variable INFOPATH to initialize it, or `Info-default-directory-list' |