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

[Ralf Angeli]

Index: auctex/font-latex.el
diff -u auctex/font-latex.el:5.147 auctex/font-latex.el:5.148
--- auctex/font-latex.el:5.147  Sat Feb  4 14:40:10 2006
+++ auctex/font-latex.el        Mon Apr 17 14:09:21 2006
@@ -1449,15 +1449,16 @@
 
 (defun font-latex-match-script (limit)
   "Match subscript and superscript patterns up to LIMIT."
-  (when font-latex-fontify-script
-    (re-search-forward
-     (eval-when-compile
-       ;; Regexp taken from `tex-font-lock-keywords-3' from
-       ;; tex-mode.el in GNU Emacs on 2004-07-07.
-       (concat "[_^] *\\([^\n\\{}]\\|" "\\\\"
-              "\\(address@hidden|[^ \t\n]\\)" "\\|"
-              "{\\(?:[^{}\\]\\|\\\\.\\|{[^}]*}\\)*" "}\\)"))
-     limit t)))
+  (when (and font-latex-fontify-script
+            (re-search-forward "[_^] *\\([^\n\\{}]\\|\
+\\\\\\(address@hidden|[^ \t\n]\\)\\|\\({\\)\\)" limit t))
+    (when (match-end 3)
+      (let ((beg (match-beginning 3))
+           (end (TeX-find-closing-brace)))
+       (store-match-data (if end
+                             (list (match-beginning 0) end beg end)
+                           (list beg beg beg beg)))))
+    t))
 
 ;; Copy and adaption of `tex-font-lock-suscript' from tex-mode.el in
 ;; GNU Emacs on 2004-07-07.