From bdf62a4d71ab40da92ee2b507349fe7e0d53c5aa Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 7 Aug 1994 23:35:47 +0000 Subject: [PATCH] (Info-additional-directory-list): New variable. (Info-find-node): Use it. --- lisp/info.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/info.el b/lisp/info.el index bba7806a9f0..7464e22c765 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -52,6 +52,7 @@ in paths.el.") (defvar Info-fontify-maximum-menu-size 30000 "*Maximum size of menu to fontify if `Info-fontify' is non-nil.") + (defvar Info-directory-list (let ((path (getenv "INFOPATH")) (sep (if (eq system-type 'ms-dos) ";" ":")) @@ -90,6 +91,10 @@ source tree, the `info' directory in the source tree is used as the last element, in place of the installation Info directory. This is useful when you run a version of Emacs without installing it.") +(defvar Info-additional-directory-list nil + "List of additional directories to search for Info documentation files. +These directories are not searched for merging the `dir' file.") + (defvar Info-current-file nil "Info file that Info is now looking at, or nil.") @@ -210,7 +215,10 @@ In standalone mode, \\\\[Info-exit] exits Emacs itself." ;; If specified name starts with `./' ;; then just try current directory. '("./") - Info-directory-list))) + (if Info-additional-directory-list + (append Info-directory-list + Info-additional-directory-list) + Info-directory-list)))) ;; Search the directory list for file FILENAME. (while (and dirs (not found)) (setq temp (expand-file-name filename (car dirs))) -- 2.39.5