Commit 7837948f authored by YAMAMOTO Mitsuharu's avatar YAMAMOTO Mitsuharu

[USE_ATSUI] (Fmac_atsu_font_face_attributes):

Fix conversion from Lisp object to ATSUFontID.
parent 5126b171
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.
......
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment