Mercurial > emacs

comparison lisp/info.el @ 8480:7f28030d9529

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 c88361c3b940
children c6088e3005cf
comparison
equal deleted inserted replaced
8479:582ac9a744c4 8480:7f28030d9529
50 (defvar Info-fontify t 50 (defvar Info-fontify t
51 "*Non-nil enables highlighting and fonts in Info nodes.") 51 "*Non-nil enables highlighting and fonts in Info nodes.")
52 52
53 (defvar Info-fontify-maximum-menu-size 30000 53 (defvar Info-fontify-maximum-menu-size 30000
54 "*Maximum size of menu to fontify if `Info-fontify' is non-nil.") 54 "*Maximum size of menu to fontify if `Info-fontify' is non-nil.")
55
55 (defvar Info-directory-list 56 (defvar Info-directory-list
56 (let ((path (getenv "INFOPATH")) 57 (let ((path (getenv "INFOPATH"))
57 (sep (if (eq system-type 'ms-dos) ";" ":")) 58 (sep (if (eq system-type 'ms-dos) ";" ":"))
58 (sibling (expand-file-name "../info/" (invocation-directory)))) 59 (sibling (expand-file-name "../info/" (invocation-directory))))
59 (if path 60 (if path
88 If you run the Emacs executable from the `src' directory in the Emacs 89 If you run the Emacs executable from the `src' directory in the Emacs
89 source tree, the `info' directory in the source tree is used as the last 90 source tree, the `info' directory in the source tree is used as the last
90 element, in place of the installation Info directory. This is useful 91 element, in place of the installation Info directory. This is useful
91 when you run a version of Emacs without installing it.") 92 when you run a version of Emacs without installing it.")
92 93
94 (defvar Info-additional-directory-list nil
95 "List of additional directories to search for Info documentation files.
96 These directories are not searched for merging the `dir' file.")
97
93 (defvar Info-current-file nil 98 (defvar Info-current-file nil
94 "Info file that Info is now looking at, or nil.") 99 "Info file that Info is now looking at, or nil.")
95 100
96 (defvar Info-current-subfile nil 101 (defvar Info-current-subfile nil
97 "Info subfile that is actually in the *info* buffer now, 102 "Info subfile that is actually in the *info* buffer now,
208 (setq found t) 213 (setq found t)
209 (let ((dirs (if (string-match "^\\./" filename) 214 (let ((dirs (if (string-match "^\\./" filename)
210 ;; If specified name starts with `./' 215 ;; If specified name starts with `./'
211 ;; then just try current directory. 216 ;; then just try current directory.
212 '("./") 217 '("./")
213 Info-directory-list))) 218 (if Info-additional-directory-list
219 (append Info-directory-list
220 Info-additional-directory-list)
221 Info-directory-list))))
214 ;; Search the directory list for file FILENAME. 222 ;; Search the directory list for file FILENAME.
215 (while (and dirs (not found)) 223 (while (and dirs (not found))
216 (setq temp (expand-file-name filename (car dirs))) 224 (setq temp (expand-file-name filename (car dirs)))
217 (setq temp-downcase 225 (setq temp-downcase
218 (expand-file-name (downcase filename) (car dirs))) 226 (expand-file-name (downcase filename) (car dirs)))