Mercurial > emacs
diff src/font.c @ 95437:6e6db01383e4
(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 | 3350c9ac1f37 |
children | e1e8d6b9d465 |
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)