Mercurial > emacs

changeset 7431:a0f1b8c25adf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(texinfo-environment-regexp): Split lines. Add def..., ifset, ifclear. (texinfo-show-structure): Fix typo.
author Richard M. Stallman <rms@gnu.org>
date Tue, 10 May 1994 06:39:04 +0000
parents 1ec8830e553c
children d7a5151c87b4
files lisp/textmodes/texinfo.el
diffstat 1 files changed, 6 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/texinfo.el	Tue May 10 06:21:55 1994 +0000
+++ b/lisp/textmodes/texinfo.el	Tue May 10 06:39:04 1994 +0000
@@ -381,8 +381,11 @@
 ;;; Insert string commands
 
 (defconst texinfo-environment-regexp
-  "^@\\(f?table\\|enumerate\\|itemize\\|ifinfo\\|iftex\\|example\\|quotation\\|lisp\\|smallexample\\|smalllisp\\|display\\|format\\|flushleft\\|flushright\\|ignore\\|group\\|tex\\|cartouche\\|end\\)"
-  "Regexp for environment-like TexInfo list commands.
+  "^@\\(f?table\\|enumerate\\|itemize\\|ifinfo\\|iftex\\|ifset\\|ifclear\
+\\|example\\|quotation\\|lisp\\|smallexample\\|smalllisp\\|display\\|format\
+\\|flushleft\\|flushright\\|ignore\\|group\\|tex\\|cartouche\\|end\
+\\|def[a-z]*\\)"
+  "Regexp for environment-like Texinfo list commands.
 Subexpression 1 is what goes into the corresponding `@end' statement.")
 
 ;; The following texinfo-insert-@end command not only inserts a SPC
@@ -568,7 +571,7 @@
              ;; ((looking-at "@subheading ") 13)
 
              ((looking-at 
-               (concat "@\\(" texinfo-subsection-level-regexp "\\)")) 13)
+               (concat "@\\(" texinfo-subsubsection-level-regexp "\\)")) 13)
              ;; ((looking-at "@subsubsection ") 17)
              ;; ((looking-at "@unnumberedsubsubsec ") 17)
              ;; ((looking-at "@appendixsubsubsec ") 17)