From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 17 Jun 1995 19:12:53 +0000 (+0000)
Subject: (Info-directory-list): If path-separator isn't available, bind it here.
X-Git-Tag: emacs-19.34~3565
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=01a2b480182e265c825e8e5defc338837389cbc8;p=emacs.git

(Info-directory-list): If path-separator isn't available, bind it here.
---

diff --git a/lisp/info.el b/lisp/info.el
index b382a380490..46c53a86ed8 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -55,6 +55,10 @@ in paths.el.")
 
 (defvar Info-directory-list
   (let ((path (getenv "INFOPATH"))
+	;; This is for older Emacs versions
+	;; which might get this info.el from the Texinfo distribution.
+	(path-separator (if (boundp 'path-separator) path-separator
+			  (if (eq system-type 'ms-dos) ";" ":")))
 	(sibling (if installation-directory
 		     (expand-file-name "info/" installation-directory))))
     (if path