From 42b31bf9373533f741643eb4952b7e5ab79c4814 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 5 Jun 1994 11:43:26 +0000 Subject: [PATCH] (Info-directory-list): Don't use the invocation directory unless it was used for exec-directory too. --- lisp/info.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/info.el b/lisp/info.el index 5558ee39955..b12278056a6 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. -- 2.39.5