Commit 118199d5 authored by Richard M. Stallman's avatar Richard M. Stallman

(Info-mode-map): Correct Info-top to Info-top-node.

parent 03bdd54c
......@@ -47,7 +47,18 @@ The Lisp code is executed when the node is selected.")
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 @@ In interactive use, a prefix argument directs this command
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*")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment