(font-lock-keywords): Make sure texinfo-clone-environment is called.

[bpt/emacs.git] / lisp / textmodes / texinfo.el

diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el
index 6a1223d..5cdcd31 100644 (file)
--- a/lisp/textmodes/texinfo.el
+++ b/lisp/textmodes/texinfo.el
@@ -359,7 +359,7 @@ Subexpression 1 is what goes into the corresponding `@end' statement.")
     ("@\\(dmn\\|acronym\\|value\\){\\([^}]+\\)" 2 font-lock-builtin-face)
     ("@\\(end\\|itemx?\\) +\\(.+\\)" 2 font-lock-keyword-face keep)
     (,texinfo-environment-regexp
-     1 (texinfo-clone-environment (match-beginning 1) (match-end 1)))
+     1 (texinfo-clone-environment (match-beginning 1) (match-end 1)) keep)
     (,(concat "^@" (regexp-opt (mapcar 'car texinfo-section-list) t)
               ".*\n") 0 texinfo-heading-face t))
   "Additional expressions to highlight in TeXinfo mode.")