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

1 files changed, 4 insertions, 0 deletions

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