mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(texinfo-chapter-level-regexp)

Browse source 
(texinfo-filter): Removed (moved to texinfo.el).
This commit is contained in:
Stefan Monnier 2000-12-08 16:35:24 +00:00
parent a11609d8c3
commit 5002ddbb2e
2 changed files with 16 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/ChangeLog
View file

@ -1,3 +1,19 @@
2000-12-08 Stefan Monnier <monnier@cs.yale.edu>
* textmodes/texnfo-upd.el (texinfo-chapter-level-regexp)
(texinfo-filter): Removed (moved to texinfo.el).
* textmodes/texinfo.el: Move the (require 'cl) to the front of the
file where it's more visible.
(texinfo-filter, texinfo-chapter-level-regexp): New variables
moved from texnfo-upd.el (for AUCTeX's compatibility, originally).
(texinfo-mode): Use texinfo-chapter-level-regexp for page-delimiter.
(texinfo-inside-macro-p): Only catch `scan-error's.
(texinfo-inside-env-p): Make better use of the match info.
(texinfo-insert-quote): Collapse calls to `texinfo-inside-macro-p'.
(texinfo-insert-@end): Slight re-organization.
Also remove useless `looking-at' call.
2000-12-08 Andrew Innes <andrewi@gnu.org>
* w32-fns.el: Add clipboard support from term/w32-win.el, so it is

9
lisp/textmodes/texnfo-upd.el
View file

@ -1122,15 +1122,6 @@ end of that region; it limits the search."
"^@\\(chapter \\|sect\\|subs\\|subh\\|unnum\\|major\\|chapheading \\|heading \\|appendix\\)"
"Regexp matching chapter, section, other headings (but not the top node).")
(defun texinfo-filter (section list)
(let (res)
(dolist (x list) (if (eq section (cadr x)) (push (car x) res)))
res))
(defvar texinfo-chapter-level-regexp
(regexp-opt (texinfo-filter 2 texinfo-section-list))
"Regular expression matching just the Texinfo chapter level headings.")
(defvar texinfo-section-level-regexp
(regexp-opt (texinfo-filter 3 texinfo-section-list))
"Regular expression matching just the Texinfo section level headings.")