diff options
| author | Kenichi Handa <handa@m17n.org> | 2008-05-31 09:58:27 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2008-05-31 09:58:27 +0000 |
| commit | e4c93315ecdc925217d4f526d39563c27a61f374 (patch) | |
| tree | 34f507aa7f88a9bf6e7fe46ce9e7c8e93e503fdb /src/font.c | |
| parent | daf7e339db09be6f95f87d774830b759a0386c52 (diff) | |
| download | emacs-e4c93315ecdc925217d4f526d39563c27a61f374.tar.gz | |
(font_list_entities): Fix the car part of data to be
stored in the cache.
Diffstat (limited to 'src/font.c')
| -rw-r--r-- | src/font.c | 3 |
1 files changed, 3 insertions, 0 deletions
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) |