From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 10 May 1994 06:39:04 +0000 (+0000)
Subject: (texinfo-environment-regexp): Split lines.
X-Git-Tag: emacs-19.34~8422
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a1017d39167a99493197dfc08598605a0acd2175;p=emacs.git

(texinfo-environment-regexp): Split lines.
Add def..., ifset, ifclear.
(texinfo-show-structure): Fix typo.
---

diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el
index a3cc2defdf3..b949eb26714 100644
--- a/lisp/textmodes/texinfo.el
+++ b/lisp/textmodes/texinfo.el
@@ -381,8 +381,11 @@ value of texinfo-mode-hook."
 ;;; 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 @@ to jump to the corresponding spot in the Texinfo source file."
              ;; ((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)