(Info-file-list-for-emacs): More elements for the

autotype, vip, ebrowse, cl, idlwave, reftex, widget, pcl-cvs,
and woman manuals.

2 files changed, 29 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8980cc4a970..a1a1b7b1a08 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2000-08-10  Eli Zaretskii  <eliz@is.elta.co.il>
+
+        * info.el (Info-file-list-for-emacs): More elements for the
+        autotype, vip, ebrowse, cl, idlwave, reftex, widget, pcl-cvs,
+        and woman manuals.
+
 2000-08-10  Miles Bader  <miles@lsi.nec.co.jp>
 
         * comint.el (comint-send-input): Make the newline boundary overlay
diff --git a/lisp/info.el b/lisp/info.el
index 8641761ed9b..62482127f85 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2173,7 +2173,13 @@ Allowed only if variable `Info-enable-edit' is non-nil."
 
 (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 @@ The locations are of the format used in `Info-history', i.e.
       (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))