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)
