Mercurial > emacs

changeset 95437:6e6db01383e4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font_list_entities): Fix the car part of data to be stored in the cache.
author Kenichi Handa <handa@m17n.org>
date Sat, 31 May 2008 09:57:37 +0000
parents 11ba87b3debf
children 87f3fd06db32
files src/font.c
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)