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

diff --git a/lisp/info.el b/lisp/info.el
index b382a3804900cbf8f9171d66368197fec136999c..46c53a86ed8c6f2df46d90dc9c80b27331c7c7fb 100644 (file)
--- 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