From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 9 Feb 1999 00:34:17 +0000 (+0000)
Subject: (texinfo-environment-regexp): Add the def... constructs.
X-Git-Tag: emacs-20.4~664
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e2918bbf0fb56d6e9846eec19eb855d582ecbd8c;p=emacs.git

(texinfo-environment-regexp): Add the def... constructs.
---

diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el
index 40e77cf8bb7..f42663c9faf 100644
--- a/lisp/textmodes/texinfo.el
+++ b/lisp/textmodes/texinfo.el
@@ -541,32 +541,46 @@ value of texinfo-mode-hook."
 ;; Keep as concatinated lists for ease of maintenance
 (defconst texinfo-environment-regexp
   (concat
-   "^@"
-   "\\("
-   "cartouche\\|"
-   "display\\|"
-   "end\\|"
-   "enumerate\\|"
-   "example\\|"
-   "f?table\\|"
-   "flushleft\\|"
-   "flushright\\|"
-   "format\\|"
-   "group\\|"
-   "ifhtml\\|"
-   "ifinfo\\|"
-   "iftex\\|"
-   "ignore\\|"
-   "itemize\\|"
-   "lisp\\|"
-   "macro\\|"
-   "multitable\\|"
-   "quotation\\|"
-   "smalldisplay\\|"
-   "smallexample\\|"
-   "smallformat\\|"
-   "smalllisp\\|"
-   "tex"
+   "^@\\("
+   (mapconcat 'identity
+	      '("cartouche"
+		"display"
+		"end"
+		"enumerate"
+		"example"
+		"deffn"
+		"defun"
+		"defmac"
+		"defspec"
+		"defva?r"
+		"defopt"
+		"deftypefu?n"
+		"deftypeva?r"
+		"defcv"
+		"defivar"
+		"defop"
+		"defmethod"
+		"deftp"
+		"f?table"
+		"flushleft"
+		"flushright"
+		"format"
+		"group"
+		"ifhtml"
+		"ifinfo"
+		"iftex"
+		"ignore"
+		"itemize"
+		"lisp"
+		"macro"
+		"multitable"
+		"quotation"
+		"smalldisplay"
+		"smallexample"
+		"smallformat"
+		"smalllisp"
+		"tex")
+	      "\\|")
    "\\)")
   "Regexp for environment-like TexInfo list commands.
    Subexpression 1 is what goes into the corresponding `@end' statement.")