From 01a2b480182e265c825e8e5defc338837389cbc8 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 17 Jun 1995 19:12:53 +0000 Subject: [PATCH] (Info-directory-list): If path-separator isn't available, bind it here. --- lisp/info.el | 4 ++++ 1 file changed, 4 insertions(+) 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 -- 2.39.2