Mercurial > emacs
changeset 5482:27603dcb6260
(Info-directory-list): Change last elt to ../info (expanded).
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 07 Jan 1994 11:58:27 +0000 |
| parents | b88ee4b9c81e |
| children | 5d55b13edb62 |
| files | lisp/info.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Fri Jan 07 11:29:42 1994 +0000 +++ b/lisp/info.el Fri Jan 07 11:58:27 1994 +0000 @@ -51,7 +51,8 @@ "*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 @@ 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'