summaryrefslogtreecommitdiff
path: root/lisp/info.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1995-06-17 19:12:53 +0000
committerRichard M. Stallman <rms@gnu.org>1995-06-17 19:12:53 +0000
commit77fcee4d48a90cad8cefd6850dc7393b2c21da58 (patch)
tree7f3769611757d1afd90351e6d2b78ec33e8b8b6e /lisp/info.el
parent52a1d1350a6ffe3df121cd1c1586d639d49b4efd (diff)
downloademacs-77fcee4d48a90cad8cefd6850dc7393b2c21da58.tar.gz
(Info-directory-list): If path-separator isn't available, bind it here.
Diffstat (limited to 'lisp/info.el')
-rw-r--r--lisp/info.el4
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