[AUCTeX-diffs] Changes to auctex/font-latex.el,v

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    08/02/04 12:16:42

Index: font-latex.el
===================================================================
RCS file: /cvsroot/auctex/auctex/font-latex.el,v
retrieving revision 5.181
retrieving revision 5.182
diff -u -b -r5.181 -r5.182
--- font-latex.el       3 Feb 2008 14:53:33 -0000       5.181
+++ font-latex.el       4 Feb 2008 12:16:40 -0000       5.182
@@ -1,7 +1,7 @@
 ;;; font-latex.el --- LaTeX fontification for Font Lock mode.
 
 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
-;;   2004, 2005, 2006, 2007 Free Software Foundation.
+;;   2004, 2005, 2006, 2007, 2008 Free Software Foundation.
 
 ;; Authors:    Peter S. Galbraith <address@hidden>
 ;;             Simon Marshall <address@hidden>
@@ -842,17 +842,9 @@
                                       (regexp-opt verb-macros-with-braces))
          font-latex-syntactic-keywords nil)
     (unless (= (length verb-envs) 0)
-      ;; We assume that the \begin part of verbatim environments can
-      ;; be preceded by all sorts of junk on the same line except
-      ;; comment characters, but the \end part only by whitespace.
-      ;; (The comment character matching is not exact since they could
-      ;; be escaped which is not being checked.)  The \end part of the
-      ;; vanilla verbatim environment should actually not even be
-      ;; preceded by whitespace since a spurious newline would be
-      ;; inserted in the typeset result in this case.
       (add-to-list 'font-latex-syntactic-keywords
-                  `(,(concat "\\(?:^\\|^[^%\n]*[^\\%]\\)\\(?:\\\\\\\\\\)*\
-\\\\begin *{\\(?:" verb-envs "\\)}.*\\(\n\\)")
+                  `(,(concat "^[ \t]*\\\\begin *{\\(?:" verb-envs
+                             "\\)}.*\\(\n\\)")
                     (1 "|" t)))
       (add-to-list 'font-latex-syntactic-keywords
                   ;; Using the newline character for the syntax