From: Kenichi Handa Date: Sat, 31 May 2008 09:58:27 +0000 (+0000) Subject: (font_list_entities): Fix the car part of data to be X-Git-Tag: emacs-pretest-23.0.90~5189 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e4c93315ecdc925217d4f526d39563c27a61f374;p=emacs.git (font_list_entities): Fix the car part of data to be stored in the cache. --- 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)