# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 770816606 0
# Node ID e974be06f4f7d4232026cd04b331ade57b820412
# Parent  ddcb81020fa199537a10077adacb3e51fc88eecd
(Info-directory-list): Don't use the invocation directory
unless it was used for exec-directory too.

diff -r ddcb81020fa1 -r e974be06f4f7 lisp/info.el
--- a/lisp/info.el	Sun Jun 05 11:31:25 1994 +0000
+++ b/lisp/info.el	Sun Jun 05 11:43:26 1994 +0000
@@ -63,7 +63,11 @@
 					    (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.