Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 79284:47ef5fb245f8 | 79285:b264e9730021 |
|---|---|
| 4619 { | 4619 { |
| 4620 ATSUFontID font_id; | 4620 ATSUFontID font_id; |
| 4621 Lisp_Object result; | 4621 Lisp_Object result; |
| 4622 | 4622 |
| 4623 check_mac (); | 4623 check_mac (); |
| 4624 CHECK_NUMBER_OR_FLOAT(id); | 4624 CHECK_NUMBER_OR_FLOAT (id); |
| 4625 font_id = NUMBERP (id) ? XINT (id) : (ATSUFontID) XFLOAT (id); | 4625 font_id = INTEGERP (id) ? XINT (id) : XFLOAT_DATA (id); |
| 4626 BLOCK_INPUT; | 4626 BLOCK_INPUT; |
| 4627 result = mac_atsu_font_face_attributes (font_id); | 4627 result = mac_atsu_font_face_attributes (font_id); |
| 4628 UNBLOCK_INPUT; | 4628 UNBLOCK_INPUT; |
| 4629 return result; | 4629 return result; |
| 4630 } | 4630 } |