diff options
author | Karl Heuer <kwzh@gnu.org> | 1995-05-27 00:36:25 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1995-05-27 00:36:25 +0000 |
commit | 579b6c9d8c9981db62c2f2926a26e877f57e80fa (patch) | |
tree | 6b6331d9fe44bfb7b50f8c0084f82670a5806cac /lisp/info.el | |
parent | a396bbe1eaf459bd7aa7f57f8e3bea08704f40de (diff) | |
download | emacs-579b6c9d8c9981db62c2f2926a26e877f57e80fa.tar.gz |
(Info-directory-list): Use path-separator.
Diffstat (limited to 'lisp/info.el')
-rw-r--r-- | lisp/info.el | 5 |
1 files changed, 1 insertions, 4 deletions
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))))) |