# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 981137334 0
# Node ID 3cd2825584a586ebb82d42191489003eebbacb22
# Parent  534be6e166a609b608ea848cc46efaab1a8814d4
(info-initialize): If installation-directory is nil, for
DOS/Windows systems try looking in a sibling of
invocation-directory.

diff -r 534be6e166a6 -r 3cd2825584a5 lisp/info.el
--- a/lisp/info.el	Fri Feb 02 18:06:18 2001 +0000
+++ b/lisp/info.el	Fri Feb 02 18:08:54 2001 +0000
@@ -311,7 +311,19 @@
     (let ((path (getenv "INFOPATH"))
 	  (source (expand-file-name "info/" source-directory))
 	  (sibling (if installation-directory
-		       (expand-file-name "info/" installation-directory)))
+		       (expand-file-name "info/" installation-directory)
+		     (if (and (memq system-type '(ms-dos windows-nt))
+			      invocation-directory)
+			 (let ((infodir (expand-file-name
+					 "../info/"
+					 invocation-directory)))
+			   (if (file-exists-p infodir)
+			       infodir
+			     (setq infodir (expand-file-name
+					    "../../../info/"
+					    invocation-directory))
+			     (and (file-exists-p infodir)
+				  infodir))))))
 	  alternative)
       (setq Info-directory-list
 	    (prune-directory-list