[AUCTeX-diffs] Changes to auctex/style/beamer.el

[Ralf Angeli]

Index: auctex/style/beamer.el
diff -u auctex/style/beamer.el:1.9 auctex/style/beamer.el:1.10
--- auctex/style/beamer.el:1.9  Tue Apr 12 14:05:27 2005
+++ auctex/style/beamer.el      Thu Sep  8 12:38:16 2005
@@ -109,7 +109,17 @@
                      env
                      (let ((width (read-input "(Optional) Area width: ")))
                        (unless (zerop (length width))
-                         (format "[%s]" width)))))))))
+                         (format "[%s]" width)))))))
+
+   ;; Fontification
+   (when (and (featurep 'font-latex)
+             (eq TeX-install-font-lock 'font-latex-setup))
+     (add-to-list 'font-latex-match-slide-title-keywords-local
+                 "frametitle")
+     (font-latex-match-slide-title-make)
+     ;; Tell font-lock about the update.
+     (setq font-lock-set-defaults nil)
+     (font-lock-set-defaults))))
 
 (defun TeX-arg-beamer-overlay-spec (optional &optional prompt)
   "Prompt for overlay specification."