Mercurial > emacs
changeset 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 | 32e3de61d8a0 (current diff) 64d1dc916ed8 (diff) |
| children | f1045a53471c a4e57fa6eb3f |
| files | |
| diffstat | 2 files changed, 10 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Tue Jul 13 18:17:51 2010 -0400 +++ b/src/ChangeLog Wed Jul 14 12:54:58 2010 +0900 @@ -1,3 +1,8 @@ +2010-07-14 Kenichi Handa <handa@m17n.org> + + * font.c (font_open_entity): Cancel previous change. + (Ffont_get): Don't check FONT_ENTITY_INDEX of a font-object. + 2010-07-13 Eli Zaretskii <eliz@gnu.org> Remove subprocesses #ifdefs.
--- 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);