Mercurial > emacs
changeset 74627:20a6a4a69f48
(mac_atsu_font_face_attributes) [USE_ATSUI]: Add extern.
(Fmac_atsu_font_face_attributes) [USE_ATSUI]: New function.
(syms_of_macfns) [USE_ATSUI]: Defsubr it.
| author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
|---|---|
| date | Fri, 15 Dec 2006 08:05:18 +0000 |
| parents | 04ef1ad19c59 |
| children | 6f17f4d8d9d6 |
| files | src/macfns.c |
| diffstat | 1 files changed, 27 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/macfns.c Fri Dec 15 08:05:10 2006 +0000 +++ b/src/macfns.c Fri Dec 15 08:05:18 2006 +0000 @@ -4597,6 +4597,30 @@ return Qnil; } #endif + +#if USE_ATSUI +extern Lisp_Object mac_atsu_font_face_attributes P_ ((ATSUFontID)); + +DEFUN ("mac-atsu-font-face-attributes", Fmac_atsu_font_face_attributes, + Smac_atsu_font_face_attributes, 1, 1, 0, + doc: /* Return plist of face attributes and values for ATSU font ID. +ID is specified by either an integer or a float. */) + (id) + Lisp_Object id; +{ + ATSUFontID font_id; + Lisp_Object result; + + check_mac (); + CHECK_NUMBER_OR_FLOAT(id); + font_id = NUMBERP (id) ? XINT (id) : (ATSUFontID) XFLOAT (id); + BLOCK_INPUT; + result = mac_atsu_font_face_attributes (font_id); + UNBLOCK_INPUT; + return result; +} +#endif + /*********************************************************************** Initialization @@ -4829,6 +4853,9 @@ #if USE_MAC_FONT_PANEL defsubr (&Smac_set_font_panel_visibility); #endif +#if USE_ATSUI + defsubr (&Smac_atsu_font_face_attributes); +#endif } /* arch-tag: d7591289-f374-4377-b245-12f5dbbb8edc