# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 965912162 0
# Node ID 5d4414327c06c3c66e9d67041475da66fbb3b1be
# Parent  8139b53e0669b4881d6550efe4753b678c649484
(Info-file-list-for-emacs): More elements for the
autotype, vip, ebrowse, cl, idlwave, reftex, widget, pcl-cvs,
and woman manuals.

diff -r 8139b53e0669 -r 5d4414327c06 lisp/info.el
--- a/lisp/info.el	Thu Aug 10 11:06:54 2000 +0000
+++ b/lisp/info.el	Thu Aug 10 12:56:02 2000 +0000
@@ -2173,7 +2173,13 @@
 
 (defvar Info-file-list-for-emacs
   '("ediff" "forms" "gnus" ("mh" . "mh-e") "sc" "message"
-    ("dired" . "dired-x") ("c" . "ccmode") "viper")
+    ("dired" . "dired-x") ("c" . "ccmode") "viper" "vip"
+    ("skeleton" . "autotype") ("auto-insert" . "autotype")
+    ("copyright" . "autotype") ("executable" . "autotype")
+    ("time-stamp" . "autotype") ("quickurl" . "autotype")
+    ("tempo" . "autotype") ("hippie-expand" . "autotype")
+    ("cvs" . "pcl-cvs")
+    "ebrowse" "cl" "idlwave" "reftex" "widget" "woman")
   "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.
@@ -2211,9 +2217,23 @@
       (condition-case nil
 	  (Info-find-node info-file "Command Index")
 	;; Some manuals may not have a separate Command Index node,
-	;; so try just Index instead.
+	;; so try other variations as well.
 	(error
-	 (Info-find-node info-file "Index")))
+	 (condition-case nil
+	     (Info-find-node info-file "Function Index")
+	   (error
+	    (condition-case nil
+		(Info-find-node info-file "Function and Variable Index")
+	      (error
+	       (condition-case nil
+		   (Info-find-node info-file "Concept Index")
+		 (error
+		  (condition-case nil
+		      (Info-find-node info-file "Index")
+		    (error
+		     (message "Info file `%s' seems to lack an Index"
+			      info-file)
+		     (sit-for 2)))))))))))
       ;; Take the index node off the Info history.
       (setq Info-history (cdr Info-history))
       (goto-char (point-max))