# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 933792922 0
# Node ID 5a57e11d78c998e386e63f07476a011cc6db2ef2
# Parent  b565998245c5170ba91aca429004221d46eba461
(Info-find-node): Call info-initialize here.
(info): Not here.
(Info-file-list-for-emacs): Add message, dired-x, c, viper.

diff -r b565998245c5 -r 5a57e11d78c9 lisp/info.el
--- 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.