# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 771781456 0
# Node ID e8eb27a1d94ef0bf593674734eb49c335db1bff2
# Parent  e02087efad68c36cd2a5f923af0789dcc266b4fd
(Info-directory-list): For msdos, use ";" instead of
":" as delimiter in INFOPATH.

diff -r e02087efad68 -r e8eb27a1d94e lisp/info.el
--- a/lisp/info.el	Thu Jun 16 15:38:30 1994 +0000
+++ b/lisp/info.el	Thu Jun 16 15:44:16 1994 +0000
@@ -52,12 +52,13 @@
 
 (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)))))