branch: externals/auctex
commit a49aaa4e8eed55ddce5bd8e886932e1e17fb5d2d
Author: Ikumi Keita <ik...@ikumi.que.jp>
Commit: Ikumi Keita <ik...@ikumi.que.jp>

    Fix font-latex-make-match-defun to generate intended code.
    
    * font-latex.el (font-latex-make-match-defun): Arrange the order of
    evaluation not to generate meaningless clause.  Byte compile warning
    on xemacs went away.
---
 font-latex.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/font-latex.el b/font-latex.el
index d9e422c..a43b0bf 100644
--- a/font-latex.el
+++ b/font-latex.el
@@ -502,9 +502,9 @@ Generated by `font-latex-make-match-defun'.")
                      ,(intern (concat prefix name "-keywords")))
                     ;; `face' can be a face symbol, a form returning
                     ;; a face symbol, or a list of face attributes.
-                    (if (and (listp ,face) (functionp (car ,face)))
-                        (eval ,face)
-                      ,face)
+                    ,(if (and (listp face) (fboundp (car face)))
+                        face
+                       `',face)
                     limit)))))
        ((eq type 'declaration)
         (eval `(defun ,(intern (concat prefix name)) (limit)

Reply via email to