# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 803416373 0
# Node ID 3631443c706ed8d5524175fd1bd50a307c826965
# Parent  7aa9cdf40d373608c3b3b2f56c0315a8a0135aca
(Info-directory-list): If path-separator isn't available, bind it here.

diff -r 7aa9cdf40d37 -r 3631443c706e lisp/info.el
--- a/lisp/info.el	Sat Jun 17 14:58:24 1995 +0000
+++ b/lisp/info.el	Sat Jun 17 19:12:53 1995 +0000
@@ -55,6 +55,10 @@
 
 (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