# HG changeset patch
# User YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
# Date 1193823598 0
# Node ID b264e97300210261ae3ebe2af4c6f3ea4671e179
# Parent  47ef5fb245f8744ad3ce93d6ce3ab9b8a7049e3d
[USE_ATSUI] (Fmac_atsu_font_face_attributes):
Fix conversion from Lisp object to ATSUFontID.

diff -r 47ef5fb245f8 -r b264e9730021 src/macfns.c
--- 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;