changeset 7990:6be46752d57f

(Info-directory-list): For msdos, don't check for exec-directory != ../lib-src (since we use wrapped binaries).
author Richard M. Stallman <rms@gnu.org>
date Tue, 21 Jun 1994 15:39:44 +0000
parents 616f4e2e2120
children f2e16be5a263
files lisp/info.el
diffstat 1 files changed, 9 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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.