Mercurial > emacs

comparison lisp/info.el @ 30738:5d4414327c06

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Info-file-list-for-emacs): More elements for the autotype, vip, ebrowse, cl, idlwave, reftex, widget, pcl-cvs, and woman manuals.
author Eli Zaretskii <eliz@gnu.org>
date Thu, 10 Aug 2000 12:56:02 +0000
parents 23c301a64c8f
children 46173131cdc4
comparison
equal deleted inserted replaced
30737:8139b53e0669 30738:5d4414327c06
2171 (buffer-modified-p) 2171 (buffer-modified-p)
2172 (message "Tags may have changed. Use Info-tagify if necessary"))) 2172 (message "Tags may have changed. Use Info-tagify if necessary")))
2173 2173
2174 (defvar Info-file-list-for-emacs 2174 (defvar Info-file-list-for-emacs
2175 '("ediff" "forms" "gnus" ("mh" . "mh-e") "sc" "message" 2175 '("ediff" "forms" "gnus" ("mh" . "mh-e") "sc" "message"
2176 ("dired" . "dired-x") ("c" . "ccmode") "viper") 2176 ("dired" . "dired-x") ("c" . "ccmode") "viper" "vip"
2177 ("skeleton" . "autotype") ("auto-insert" . "autotype")
2178 ("copyright" . "autotype") ("executable" . "autotype")
2179 ("time-stamp" . "autotype") ("quickurl" . "autotype")
2180 ("tempo" . "autotype") ("hippie-expand" . "autotype")
2181 ("cvs" . "pcl-cvs")
2182 "ebrowse" "cl" "idlwave" "reftex" "widget" "woman")
2177 "List of Info files that describe Emacs commands. 2183 "List of Info files that describe Emacs commands.
2178 An element can be a file name, or a list of the form (PREFIX . FILE) 2184 An element can be a file name, or a list of the form (PREFIX . FILE)
2179 where PREFIX is a name prefix and FILE is the file to look in. 2185 where PREFIX is a name prefix and FILE is the file to look in.
2180 If the element is just a file name, the file name also serves as the prefix.") 2186 If the element is just a file name, the file name also serves as the prefix.")
2181 2187
2209 (setq file-list (cdr file-list)))))) 2215 (setq file-list (cdr file-list))))))
2210 (save-excursion 2216 (save-excursion
2211 (condition-case nil 2217 (condition-case nil
2212 (Info-find-node info-file "Command Index") 2218 (Info-find-node info-file "Command Index")
2213 ;; Some manuals may not have a separate Command Index node, 2219 ;; Some manuals may not have a separate Command Index node,
2214 ;; so try just Index instead. 2220 ;; so try other variations as well.
2215 (error 2221 (error
2216 (Info-find-node info-file "Index"))) 2222 (condition-case nil
2223 (Info-find-node info-file "Function Index")
2224 (error
2225 (condition-case nil
2226 (Info-find-node info-file "Function and Variable Index")
2227 (error
2228 (condition-case nil
2229 (Info-find-node info-file "Concept Index")
2230 (error
2231 (condition-case nil
2232 (Info-find-node info-file "Index")
2233 (error
2234 (message "Info file `%s' seems to lack an Index"
2235 info-file)
2236 (sit-for 2)))))))))))
2217 ;; Take the index node off the Info history. 2237 ;; Take the index node off the Info history.
2218 (setq Info-history (cdr Info-history)) 2238 (setq Info-history (cdr Info-history))
2219 (goto-char (point-max)) 2239 (goto-char (point-max))
2220 (while (re-search-backward cmd-desc nil t) 2240 (while (re-search-backward cmd-desc nil t)
2221 (setq where (cons (list Info-current-file 2241 (setq where (cons (list Info-current-file