From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 16 Jun 1994 15:44:16 +0000 (+0000)
Subject: (Info-directory-list): For msdos, use ";" instead of
X-Git-Tag: emacs-19.34~7925
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7df79bd462b98b6ee9844200378340c10aeeb7d8;p=emacs.git

(Info-directory-list): For msdos, use ";" instead of
":" as delimiter in INFOPATH.
---

diff --git a/lisp/info.el b/lisp/info.el
index fc20c4b61e7..524b0b74af5 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -52,12 +52,13 @@ in paths.el.")
 
 (defvar Info-directory-list
   (let ((path (getenv "INFOPATH"))
+	(sep (if (eq system-type 'ms-dos) ";" ":"))
 	(sibling (expand-file-name "../info/" (invocation-directory))))
     (if path
 	(let ((list nil)
 	      idx)
 	  (while (> (length path) 0)
-	    (setq idx (or (string-match ":" path) (length path))
+	    (setq idx (or (string-match sep path) (length path))
 		  list (cons (substring path 0 idx) list)
 		  path (substring path (min (1+ idx)
 					    (length path)))))