From: YAMAMOTO Mitsuharu Date: Sat, 10 Dec 2005 01:50:02 +0000 (+0000) Subject: (mac_make_lispy_event_code, mac_aedesc_to_lisp): Add externs. X-Git-Tag: emacs-pretest-22.0.90~5379 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=24d5a45ded91505770685a09073d6c60007a4258;p=emacs.git (mac_make_lispy_event_code, mac_aedesc_to_lisp): Add externs. (create_apple_event_from_event_ref) [TARGET_API_MAC_CARBON]: Likewise. (Fmac_get_preference): Add EXFUN. --- diff --git a/src/macterm.h b/src/macterm.h index 1c967e32741..69e309562e5 100644 --- a/src/macterm.h +++ b/src/macterm.h @@ -79,7 +79,7 @@ struct mac_display_info /* Number of planes on this screen. */ int n_planes; - /* Whether the screen supports color */ + /* Whether the screen supports color */ int color_p; /* Dimensions of this screen. */ @@ -567,6 +567,7 @@ extern void mac_clear_area P_ ((struct frame *, int, int, extern void mac_unload_font P_ ((struct mac_display_info *, XFontStruct *)); extern OSErr install_window_handler P_ ((WindowPtr)); extern void remove_window_handler P_ ((WindowPtr)); +extern Lisp_Object mac_make_lispy_event_code P_ ((int)); #define FONT_TYPE_FOR_UNIBYTE(font, ch) 0 #define FONT_TYPE_FOR_MULTIBYTE(font, ch) 0 @@ -580,7 +581,12 @@ extern void x_clear_frame_selections P_ ((struct frame *)); extern OSErr posix_pathname_to_fsspec P_ ((const char *, FSSpec *)); extern OSErr fsspec_to_posix_pathname P_ ((const FSSpec *, char *, int)); extern void mac_clear_font_name_table P_ ((void)); +extern Lisp_Object mac_aedesc_to_lisp P_ ((AEDesc *)); #if TARGET_API_MAC_CARBON +extern OSErr create_apple_event_from_event_ref P_ ((EventRef, UInt32, + EventParamName *, + EventParamType *, + UInt32 *, AppleEvent *)); extern CFStringRef cfstring_create_with_utf8_cstring P_ ((const char *)); extern CFStringRef cfstring_create_with_string P_ ((Lisp_Object)); extern Lisp_Object cfdata_to_lisp P_ ((CFDataRef)); @@ -595,6 +601,7 @@ extern Lisp_Object cfproperty_list_to_lisp P_ ((CFPropertyListRef, int, int)); extern void xrm_merge_string_database P_ ((XrmDatabase, char *)); extern Lisp_Object xrm_get_resource P_ ((XrmDatabase, char *, char *)); extern XrmDatabase xrm_get_preference_database P_ ((char *)); +EXFUN (Fmac_get_preference, 4); /* arch-tag: 6b4ca125-5bef-476d-8ee8-31ed808b7e79 (do not change this comment) */