comparison src/macfns.c @ 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.

74626:04ef1ad19c59

  if (err != noErr)
    error ("Cannot change visibility of the font panel");
  return Qnil;
}
#endif

/***********************************************************************
			    Initialization
 ***********************************************************************/

#endif
  defsubr (&Smac_clear_font_name_table);
#if USE_MAC_FONT_PANEL
  defsubr (&Smac_set_font_panel_visibility);
#endif
}

/* arch-tag: d7591289-f374-4377-b245-12f5dbbb8edc
   (do not change this comment) */

74627:20a6a4a69f48

  if (err != noErr)
    error ("Cannot change visibility of the font panel");
  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
 ***********************************************************************/

#endif
  defsubr (&Smac_clear_font_name_table);
#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
   (do not change this comment) */