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

[Ralf Angeli]

Index: auctex/font-latex.el
diff -u auctex/font-latex.el:5.143 auctex/font-latex.el:5.144
--- auctex/font-latex.el:5.143  Sat Nov 12 09:23:51 2005
+++ auctex/font-latex.el        Thu Nov 24 16:03:25 2005
@@ -223,17 +223,6 @@
 
 (font-latex-make-sectioning-faces font-latex-sectioning-max)
 
-;; These aliases should be removed after the next release:
-;; Provide alias for version 11.55:
-(condition-case nil
-    (make-obsolete-variable 'font-latex-title-fontify
-                           'font-latex-fontify-sectioning
-                           "AUCTeX 11.81")
-  (wrong-number-of-arguments 'font-latex-title-fontify
-                            'font-latex-fontify-sectioning))
-;; Should we provide an alias for version 11.50-11.54?
-;; (make-obsolete-variable 'font-latex-title-fontity
-;;                     'font-latex-title-fontify "AUCTEX 11.55")
 
 ;;; Keywords
 
@@ -642,7 +631,12 @@
   (dolist (item
           '(("\\(^\\|[^\\]\\)\\(&+\\)" 2 'font-latex-warning-face)
             ("\\$\\$\\([^$]+\\)\\$\\$" 1 'font-latex-math-face)
-            (font-latex-match-quotation (0 'font-latex-string-face append))))
+            (font-latex-match-quotation (0 'font-latex-string-face append))
+            ;; Hack to remove the verbatim face from the \ in
+            ;; \end{verbatim} and similar.  The same hack is used in
+            ;; tex-mode.el.
+            ("^[ \t]*\\(\\\\\\)end"
+             (1 (get-text-property (match-end 1) 'face) t))))
     (add-to-list 'font-latex-keywords-1 item)
     (add-to-list 'font-latex-keywords-2 item))
   (dolist (item 
@@ -714,7 +708,14 @@
                              "\\)}.*\\(\n\\)")
                     (1 "|" t)))
       (add-to-list 'font-latex-syntactic-keywords
-                  `(,(concat "\\(\n\\)[ \t]*\\\\end *{\\(?:" verb-envs "\\)}")
+                  ;; Using the newline character for the syntax
+                  ;; property often resulted in fontification
+                  ;; problems when text was inserted at the end of
+                  ;; the verbatim environment.  That's why we now use
+                  ;; the starting backslash of \end.  There is a hack
+                  ;; in `font-latex-make-user-keywords' to remove the
+                  ;; spurious fontification of the backslash.
+                  `(,(concat "^[ \t]*\\(\\\\\\)end *{\\(?:" verb-envs "\\)}")
                     (1 "|" t))))
     (unless (= (length verb-macros-with-delims) 0)
       (add-to-list 'font-latex-syntactic-keywords