From 579b6c9d8c9981db62c2f2926a26e877f57e80fa Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sat, 27 May 1995 00:36:25 +0000 Subject: (Info-directory-list): Use path-separator. --- lisp/info.el | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'lisp/info.el') diff --git a/lisp/info.el b/lisp/info.el index 3972e16ab90..cb36fac8dde 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -55,16 +55,13 @@ in paths.el.") (defvar Info-directory-list (let ((path (getenv "INFOPATH")) - (sep (if (or (eq system-type 'ms-dos) - (eq system-type 'windows-nt)) - ";" ":")) (sibling (if installation-directory (expand-file-name "info/" installation-directory)))) (if path (let ((list nil) idx) (while (> (length path) 0) - (setq idx (or (string-match sep path) (length path)) + (setq idx (or (string-match path-separator path) (length path)) list (cons (substring path 0 idx) list) path (substring path (min (1+ idx) (length path))))) -- cgit v1.2.1