changeset 7789:e974be06f4f7

(Info-directory-list): Don't use the invocation directory unless it was used for exec-directory too.
author Richard M. Stallman <rms@gnu.org>
date Sun, 05 Jun 1994 11:43:26 +0000
parents ddcb81020fa1
children 75153e2d5d85
files lisp/info.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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.