From: Kenichi Handa <handa@m17n.org>
Date: Wed, 14 May 2008 01:27:09 +0000 (+0000)
Subject: (internal_equal): Handle PREV_FONT.
X-Git-Tag: emacs-pretest-23.0.90~5569
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f6204a24fa00b43fd986a62a7aa890ef697affb5;p=emacs.git

(internal_equal): Handle PREV_FONT.
---

diff --git a/src/fns.c b/src/fns.c
index e89fbbc2801..1f6208dc548 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -2207,12 +2207,13 @@ internal_equal (o1, o2, depth, props)
 	if (WINDOW_CONFIGURATIONP (o1))
 	  return compare_window_configurations (o1, o2, 0);
 
-	/* Aside from them, only true vectors, char-tables, and compiled
-	   functions are sensible to compare, so eliminate the others now.  */
+	/* Aside from them, only true vectors, char-tables, compiled
+	   functions, and fonts (font-spec, font-entity, font-ojbect)
+	   are sensible to compare, so eliminate the others now.  */
 	if (size & PSEUDOVECTOR_FLAG)
 	  {
 	    if (!(size & (PVEC_COMPILED
-			  | PVEC_CHAR_TABLE | PVEC_SUB_CHAR_TABLE)))
+			  | PVEC_CHAR_TABLE | PVEC_SUB_CHAR_TABLE | PVEC_FONT)))
 	      return 0;
 	    size &= PSEUDOVECTOR_SIZE_MASK;
 	  }