Mercurial > emacs
changeset 25172:5a57e11d78c9
(Info-find-node): Call info-initialize here.
(info): Not here.
(Info-file-list-for-emacs): Add message, dired-x, c, viper.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Wed, 04 Aug 1999 18:55:22 +0000 |
| parents | b565998245c5 |
| children | cf6d2213e0a7 |
| files | lisp/info.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Wed Aug 04 16:49:19 1999 +0000 +++ b/lisp/info.el Wed Aug 04 18:55:22 1999 +0000 @@ -297,7 +297,6 @@ in all the directories in that path." (interactive (if current-prefix-arg (list (read-file-name "Info file name: " nil nil t)))) - (info-initialize) (if file (progn (pop-to-buffer "*info*") @@ -354,6 +353,7 @@ ;; no-going-back is non-nil if recovering from an error in this function; ;; it says do not attempt further (recursive) error recovery. (defun Info-find-node (filename nodename &optional no-going-back) + (info-initialize) ;; Convert filename to lower case if not found as specified. ;; Expand it. (if filename @@ -865,6 +865,7 @@ (defun Info-goto-node (nodename) "Go to info node named NAME. Give just NODENAME or (FILENAME)NODENAME." (interactive (list (Info-read-node-name "Goto node: "))) + (info-initialize) (let (filename) (string-match "\\s *\\((\\s *\\([^\t)]*\\)\\s *)\\s *\\|\\)\\(.*\\)" nodename) @@ -2077,7 +2078,8 @@ (message "Tags may have changed. Use Info-tagify if necessary"))) (defvar Info-file-list-for-emacs - '("ediff" "forms" "gnus" "info" ("mh" . "mh-e") "sc") + '("ediff" "forms" "gnus" "info" ("mh" . "mh-e") "sc" "message" + ("dired" . "dired-x") ("c" . "ccmode") "viper") "List of Info files that describe Emacs commands. An element can be a file name, or a list of the form (PREFIX . FILE) where PREFIX is a name prefix and FILE is the file to look in.