From 7df79bd462b98b6ee9844200378340c10aeeb7d8 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 16 Jun 1994 15:44:16 +0000 Subject: [PATCH] (Info-directory-list): For msdos, use ";" instead of ":" as delimiter in INFOPATH. --- lisp/info.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))))) -- 2.39.5