From e4c93315ecdc925217d4f526d39563c27a61f374 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 31 May 2008 09:58:27 +0000 Subject: [PATCH] (font_list_entities): Fix the car part of data to be stored in the cache. --- src/ChangeLog | 3 +++ src/font.c | 3 +++ 2 files changed, 6 insertions(+) diff --git a/src/ChangeLog b/src/ChangeLog index 030c2a186bf..34a825d0720 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,8 @@ 2008-05-31 Kenichi Handa + * font.c (font_list_entities): Fix the car part of data to be + stored in the cache. + * ftfont.c (ftfont_font_format): Don't use strcasestr. 2008-05-30 Stefan Monnier diff --git a/src/font.c b/src/font.c index 484f0257546..9e99b81614f 100644 --- a/src/font.c +++ b/src/font.c @@ -2441,6 +2441,8 @@ font_list_entities (frame, spec) 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 @@ font_list_entities (frame, spec) 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) -- 2.39.5