mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-14 16:50:58 +00:00
Code Issues Releases Activity

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

Browse Source 
autotype, vip, ebrowse, cl, idlwave, reftex, widget, pcl-cvs,
and woman manuals.
This commit is contained in:
Eli Zaretskii 2000-08-10 12:56:50 +00:00
parent c51bacd6cd
commit af71853819
2 changed files with 29 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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

26
lisp/info.el
View File

@ -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))