# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1239929741 0
# Node ID bf88e5d2f4afc74732855db73ecb2c80feb64582
# Parent  61ab76316844534b4a4aea7fbc0e99a808a27e79
(ftfont_pattern_entity): Return a newly allocated
entity even if the cache hits.

diff -r 61ab76316844 -r bf88e5d2f4af src/ftfont.c
--- a/src/ftfont.c	Thu Apr 16 18:45:20 2009 +0000
+++ b/src/ftfont.c	Fri Apr 17 00:55:41 2009 +0000
@@ -208,7 +208,14 @@
   cache = ftfont_lookup_cache (key, FTFONT_CACHE_FOR_ENTITY);
   entity = XCAR (cache);
   if (! NILP (entity))
-    return entity;
+    {
+      Lisp_Object val = font_make_entity ();
+      int i;
+
+      for (i = 0; i < FONT_OBJLIST_INDEX; i++)
+	ASET (val, i, AREF (entity, i));
+      return val;
+    }
   entity = font_make_entity ();
   XSETCAR (cache, entity);