# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 768551944 0
# Node ID a0f1b8c25adf67b33ab341fc428a38e86f8c1773
# Parent  1ec8830e553c9893ba3bab36b2234649d0b5fcaf
(texinfo-environment-regexp): Split lines.
Add def..., ifset, ifclear.
(texinfo-show-structure): Fix typo.

diff -r 1ec8830e553c -r a0f1b8c25adf lisp/textmodes/texinfo.el
--- 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)