Mercurial > emacs
changeset 8480:7f28030d9529
(Info-additional-directory-list): New variable.
(Info-find-node): Use it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 07 Aug 1994 23:35:47 +0000 |
| parents | 582ac9a744c4 |
| children | b4c5b7658550 |
| files | lisp/info.el |
| diffstat | 1 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Sun Aug 07 18:11:58 1994 +0000 +++ b/lisp/info.el Sun Aug 07 23:35:47 1994 +0000 @@ -52,6 +52,7 @@ (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 @@ 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 @@ ;; 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)))