Mercurial > emacs
diff src/macfns.c @ 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 | bf2b26af972d |
children | ab33c298053b d3e87ee5aa0e |
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;