diff options
| author | Richard M. Stallman <[email protected]> | 1994-06-05 11:43:26 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1994-06-05 11:43:26 +0000 |
| commit | 42b31bf9373533f741643eb4952b7e5ab79c4814 (patch) | |
| tree | a53d7b0af76e9b5a06b0e343baf7ca6fdda86bf9 /lisp/info.el | |
| parent | edb85f595aa12bfc4ab97d8c4e981687e42c6c74 (diff) | |
(Info-directory-list): Don't use the invocation directory
unless it was used for exec-directory too.
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/info.el b/lisp/info.el index 5558ee3995..b12278056a 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -63,7 +63,11 @@ in paths.el.") (length path))))) (nreverse list)) (if (or (member sibling Info-default-directory-list) - (not (file-exists-p sibling))) + (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))))) Info-default-directory-list (reverse (cons sibling (cdr (reverse Info-default-directory-list))))))) "List of directories to search for Info documentation files. |