From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Date: Fri, 15 Dec 2006 08:05:18 +0000 (+0000)
Subject: (mac_atsu_font_face_attributes) [USE_ATSUI]: Add extern.
X-Git-Tag: emacs-pretest-22.0.92~116
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c9a75a9f3adfd4488388c29161a3213876a13be7;p=emacs.git

(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.
---

diff --git a/src/macfns.c b/src/macfns.c
index 2df3b4e203e..521156a0de6 100644
--- a/src/macfns.c
+++ b/src/macfns.c
@@ -4597,6 +4597,30 @@ This is for internal use only.  Use `mac-font-panel-mode' instead.  */)
   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 @@ Chinese, Japanese, and Korean.  */);
 #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