# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1212227857 0
# Node ID 6e6db01383e48f9bfb650d3fd8f8124b5ad3f4e0
# Parent  11ba87b3debf7b6779acfeb62d8d0fc0058e1592
(font_list_entities): Fix the car part of data to be
stored in the cache.

diff -r 11ba87b3debf -r 6e6db01383e4 src/font.c
--- a/src/font.c	Sat May 31 02:31:12 2008 +0000
+++ b/src/font.c	Sat May 31 09:57:37 2008 +0000
@@ -2441,6 +2441,8 @@
 	Lisp_Object cache = font_get_cache (f, driver_list->driver);
 	Lisp_Object tail = alternate_familes;
 
+	ASET (scratch_font_spec, FONT_TYPE_INDEX, driver_list->driver->type);
+	ASET (scratch_font_spec, FONT_FAMILY_INDEX, family);
 	while (1)
 	  {
 	    val = assoc_no_quit (scratch_font_spec, XCDR (cache));
@@ -2452,6 +2454,7 @@
 
 		val = driver_list->driver->list (frame, scratch_font_spec);
 		copy = Fcopy_font_spec (scratch_font_spec);
+		ASET (copy, FONT_TYPE_INDEX, driver_list->driver->type);
 		XSETCDR (cache, Fcons (Fcons (copy, val), XCDR (cache)));
 	      }
 	    if (! NILP (val) && need_filtering)