# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 757943907 0
# Node ID 27603dcb6260f3b0406080e45acc3b07c3c7801e
# Parent  b88ee4b9c81e3a262b2d719efc4c6351234b316e
(Info-directory-list): Change last elt to ../info (expanded).

diff -r b88ee4b9c81e -r 27603dcb6260 lisp/info.el
--- a/lisp/info.el	Fri Jan 07 11:29:42 1994 +0000
+++ b/lisp/info.el	Fri Jan 07 11:58:27 1994 +0000
@@ -51,7 +51,8 @@
   "*Non-nil enables highlighting and fonts in Info nodes.")
 
 (defvar Info-directory-list
-  (let ((path (getenv "INFOPATH")))
+  (let ((path (getenv "INFOPATH"))
+	(sibling (expand-file-name "../info/" (invocation-directory))))
     (if path
 	(let ((list nil)
 	      idx)
@@ -61,7 +62,10 @@
 		  path (substring path (min (1+ idx)
 					    (length path)))))
 	  (nreverse list))
-      Info-default-directory-list))
+      (if (or (member sibling Info-default-directory-list)
+	      (not (file-exists-p sibling)))
+	  Info-default-directory-list
+	(reverse (cons sibling (cdr (reverse Info-default-directory-list)))))))
   "List of directories to search for Info documentation files.
 nil means not yet initialized.  In this case, Info uses the environment
 variable INFOPATH to initialize it, or `Info-default-directory-list'