Mercurial > emacs

changeset 24285:8a8bc81dd902

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(texinfo-environment-regexp): Add the def... constructs.
author Richard M. Stallman <rms@gnu.org>
date Tue, 09 Feb 1999 00:34:17 +0000
parents c8a762e57cf6
children 6b85141508e0
files lisp/textmodes/texinfo.el
diffstat 1 files changed, 40 insertions(+), 26 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/texinfo.el	Mon Feb 08 23:50:42 1999 +0000
+++ b/lisp/textmodes/texinfo.el	Tue Feb 09 00:34:17 1999 +0000
@@ -541,32 +541,46 @@
 ;; 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.")