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

[Ralf Angeli]

Index: auctex/font-latex.el
diff -u auctex/font-latex.el:5.110 auctex/font-latex.el:5.111
--- auctex/font-latex.el:5.110  Thu Apr 28 14:12:40 2005
+++ auctex/font-latex.el        Sun May  1 18:55:27 2005
@@ -386,7 +386,9 @@
 Generated by `font-latex-make-match-defun'.")
                    (when ,(intern (concat prefix name))
                      (re-search-forward
-                      ,(intern (concat prefix name)) limit t))))))))
+                      ,(intern (concat prefix name)) limit t)))))))
+  (when (byte-code-function-p (symbol-function 'font-latex-make-match-defun))
+    (byte-compile (intern (concat prefix name)))))
 
 (defun font-latex-keyword-matcher (prefix name face type)
   "Return a matcher and highlighter as required by `font-lock-keywords'.
@@ -510,7 +512,12 @@
                       keywords-entry t)
          (when (= level 1)
            (add-to-list (intern (concat "font-latex-keywords-2"))
-                        keywords-entry t)))))))
+                        keywords-entry t)))
+
+       ;; Compile font-latex-match-*-make
+       (when (byte-code-function-p (symbol-function
+                                    'font-latex-make-built-in-keywords))
+         (byte-compile (intern (concat prefix name "-make"))))))))
 (font-latex-make-built-in-keywords)
 
 (defcustom font-latex-user-keyword-classes nil