From af71853819d9f8a7d059fb34ed754754eba1d313 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 10 Aug 2000 12:56:50 +0000 Subject: [PATCH] (Info-file-list-for-emacs): More elements for the autotype, vip, ebrowse, cl, idlwave, reftex, widget, pcl-cvs, and woman manuals. --- lisp/ChangeLog | 6 ++++++ lisp/info.el | 26 +++++++++++++++++++++++--- 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 + + * 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 * 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)) -- 2.39.2