Mercurial > emacs

changeset 11959:0b8b8be6a3fd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Info-directory-list): Use path-separator.
author Karl Heuer <kwzh@gnu.org>
date Sat, 27 May 1995 00:36:25 +0000
parents df51559ee7f9
children 5d3f2639cf3a
files lisp/info.el
diffstat 1 files changed, 1 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Sat May 27 00:36:04 1995 +0000
+++ b/lisp/info.el	Sat May 27 00:36:25 1995 +0000
@@ -55,16 +55,13 @@
 
 (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)))))