# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 772213184 0
# Node ID 6be46752d57f0bcf8072b9b0d709a1fcdd9b4849
# Parent  616f4e2e212071ab9931419ee49efc6181afadda
(Info-directory-list): For msdos, don't check for
exec-directory != ../lib-src (since we use wrapped binaries).

diff -r 616f4e2e2120 -r 6be46752d57f lisp/info.el
--- a/lisp/info.el	Tue Jun 21 01:06:13 1994 +0000
+++ b/lisp/info.el	Tue Jun 21 15:39:44 1994 +0000
@@ -65,10 +65,15 @@
 	  (nreverse list))
       (if (or (member sibling Info-default-directory-list)
 	      (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)))))
+	      ;; On MS-DOS, we use movable executables always,
+	      ;; and we must always find the Info dir at run time.
+	      (if (eq system-type 'ms-dos)
+		  nil
+		;; 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.