From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 5 Jun 1994 11:43:26 +0000 (+0000)
Subject: (Info-directory-list): Don't use the invocation directory
X-Git-Tag: emacs-19.34~8064
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=42b31bf9373533f741643eb4952b7e5ab79c4814;p=emacs.git

(Info-directory-list): Don't use the invocation directory
unless it was used for exec-directory too.
---

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.