Mercurial > emacs
changeset 79285:b264e9730021
[USE_ATSUI] (Fmac_atsu_font_face_attributes):
Fix conversion from Lisp object to ATSUFontID.
| author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
|---|---|
| date | Wed, 31 Oct 2007 09:39:58 +0000 |
| parents | 47ef5fb245f8 |
| children | 98fd5e022003 |
| files | src/macfns.c |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/macfns.c Wed Oct 31 09:15:32 2007 +0000 +++ b/src/macfns.c Wed Oct 31 09:39:58 2007 +0000 @@ -4621,8 +4621,8 @@ Lisp_Object result; check_mac (); - CHECK_NUMBER_OR_FLOAT(id); - font_id = NUMBERP (id) ? XINT (id) : (ATSUFontID) XFLOAT (id); + CHECK_NUMBER_OR_FLOAT (id); + font_id = INTEGERP (id) ? XINT (id) : XFLOAT_DATA (id); BLOCK_INPUT; result = mac_atsu_font_face_attributes (font_id); UNBLOCK_INPUT;