Mercurial > emacs
diff src/font.c @ 109389:b019ae044fb3
Do not record a font-entity in the property of font-object.
author | Kenichi Handa <handa@etlken> |
---|---|
date | Wed, 14 Jul 2010 12:54:58 +0900 |
parents | 1cbe0a6dbbc2 |
children | f69d90096f33 c02e8765755d |
line wrap: on
line diff
--- a/src/font.c Tue Jul 13 18:17:51 2010 -0400 +++ b/src/font.c Wed Jul 14 12:54:58 2010 +0900 @@ -3005,7 +3005,6 @@ return Qnil; ASET (entity, FONT_OBJLIST_INDEX, Fcons (font_object, AREF (entity, FONT_OBJLIST_INDEX))); - ASET (font_object, FONT_ENTITY_INDEX, entity); num_fonts++; font = XFONT_OBJECT (font_object); @@ -4131,20 +4130,12 @@ if (NILP (val) && EQ (key, QCotf) && FONT_OBJECT_P (font)) { struct font *fontp = XFONT_OBJECT (font); - Lisp_Object entity = AREF (font, FONT_ENTITY_INDEX); - - val = Fassq (key, AREF (entity, FONT_EXTRA_INDEX)); - if (NILP (val)) - { - if (fontp->driver->otf_capability) - val = fontp->driver->otf_capability (fontp); - else - val = Fcons (Qnil, Qnil); - font_put_extra (font, QCotf, val); - font_put_extra (entity, QCotf, val); - } + + if (fontp->driver->otf_capability) + val = fontp->driver->otf_capability (fontp); else - val = Fcdr (val); + val = Fcons (Qnil, Qnil); + font_put_extra (font, QCotf, val); } else val = Fcdr (val);