Mercurial > emacs
changeset 3330:4fd13e6109e3
(Info-mode-map): Correct Info-top to Info-top-node.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 30 May 1993 23:32:41 +0000 |
parents | c9443f73d329 |
children | 3ab36486eede |
files | lisp/info.el |
diffstat | 1 files changed, 12 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Sun May 30 23:24:09 1993 +0000 +++ b/lisp/info.el Sun May 30 23:32:41 1993 +0000 @@ -47,7 +47,18 @@ This value is used as the default for `Info-directory-list'. It is set in paths.el.") -(defvar Info-directory-list nil +(defvar Info-directory-list + (let ((path (getenv "INFOPATH"))) + (if path + (let ((list nil) + idx) + (while (> (length path) 0) + (setq idx (or (string-match ":" path) (length path)) + list (cons (substring path 0 idx) list) + path (substring path (min (1+ idx) + (length path))))) + (nreverse list)) + Info-default-directory-list)) "List of directories to search for Info documentation files. nil means not yet initialized. In this case, Info uses the environment variable INFOPATH to initialize it, or `Info-default-directory-list' @@ -112,19 +123,6 @@ to read a file name from the minibuffer." (interactive (if current-prefix-arg (list (read-file-name "Info file name: " nil nil t)))) - (or Info-directory-list - (setq Info-directory-list - (let ((path (getenv "INFOPATH"))) - (if path - (let ((list nil) - idx) - (while (> (length path) 0) - (setq idx (or (string-match ":" path) (length path)) - list (cons (substring path 0 idx) list) - path (substring path (min (1+ idx) - (length path))))) - (nreverse list)) - Info-default-directory-list)))) (if file (Info-goto-node (concat "(" file ")")) (if (get-buffer "*info*")