procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(font_list_entities): Fix the car part of data to be

Browse source 
stored in the cache.
This commit is contained in:
Kenichi Handa 2008-05-31 09:58:27 +00:00
parent daf7e339db
commit e4c93315ec
2 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/ChangeLog
View file

@ -1,5 +1,8 @@
2008-05-31 Kenichi Handa <handa@m17n.org>
* 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 <monnier@iro.umontreal.ca>

3
src/font.c
View file

@ -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)