changeset 12294:3631443c706e

(Info-directory-list): If path-separator isn't available, bind it here.
author Richard M. Stallman <rms@gnu.org>
date Sat, 17 Jun 1995 19:12:53 +0000
parents 7aa9cdf40d37
children b4731504d3ab
files lisp/info.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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