>From address@hidden Sun Feb 12 23:51:24 2017
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Subject: [PATCH] Fix font-latex-make-match-defun to generate intended code
X-Mercurial-Node: 8bf52debd090eebdd510a453283997102ff15411
X-Mercurial-Series-Index: 1
X-Mercurial-Series-Total: 1
Message-Id: <address@hidden>
X-Mercurial-Series-Id: <address@hidden>
User-Agent: Mercurial-patchbomb/4.0.1
Date: Sun, 12 Feb 2017 23:51:23 +0900
From: Ikumi Keita <address@hidden>
To: dummy

* 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.

diff --git a/font-latex.el b/font-latex.el
--- a/font-latex.el
+++ b/font-latex.el
@@ -502,9 +502,9 @@
 		      ,(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)