[USE_ATSUI] (Fmac_atsu_font_face_attributes):

Fix conversion from Lisp object to ATSUFontID.

[USE_ATSUI] (Fmac_atsu_font_face_attributes):
Fix conversion from Lisp object to ATSUFontID.
7837948f · YAMAMOTO Mitsuharu · 5126b171 · 7837948f · 7837948f
Commit 7837948f authored Oct 31, 2007 by YAMAMOTO Mitsuharu
Show whitespace changes
Inline Side-by-side

Showing with 7 additions and 2 deletions

src/ChangeLog src/ChangeLog +5 -0

src/macfns.c src/macfns.c +2 -2

No files found.
--- a/src/ChangeLog
+++ b/src/ChangeLog
+2007-10-31  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
+
+	* macfns.c [USE_ATSUI] (Fmac_atsu_font_face_attributes):
+	Fix conversion from Lisp object to ATSUFontID.
+
 2007-10-30  Jason Rumney  <jasonr@gnu.org>

 	* xdisp.c (Fformat_mode_line): Do nothing when noninteractive.

--- a/src/macfns.c
+++ b/src/macfns.c
@@ -4621,8 +4621,8 @@ ID is specified by either an integer or a float.  */)
  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;