aboutsummaryrefslogtreecommitdiffstats
path: root/src/macselect.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/macselect.c')
-rw-r--r--src/macselect.c42
1 files changed, 21 insertions, 21 deletions
diff --git a/src/macselect.c b/src/macselect.c
index 67a28cf9e64..fd72bd3cb14 100644
--- a/src/macselect.c
+++ b/src/macselect.c
@@ -31,15 +31,15 @@ typedef int ScrapRef;
31typedef ResType ScrapFlavorType; 31typedef ResType ScrapFlavorType;
32#endif /* !TARGET_API_MAC_CARBON */ 32#endif /* !TARGET_API_MAC_CARBON */
33 33
34static OSErr get_scrap_from_symbol P_ ((Lisp_Object, int, ScrapRef *)); 34static OSStatus get_scrap_from_symbol P_ ((Lisp_Object, int, ScrapRef *));
35static ScrapFlavorType get_flavor_type_from_symbol P_ ((Lisp_Object)); 35static ScrapFlavorType get_flavor_type_from_symbol P_ ((Lisp_Object));
36static int valid_scrap_target_type_p P_ ((Lisp_Object)); 36static int valid_scrap_target_type_p P_ ((Lisp_Object));
37static OSErr clear_scrap P_ ((ScrapRef *)); 37static OSStatus clear_scrap P_ ((ScrapRef *));
38static OSErr put_scrap_string P_ ((ScrapRef, Lisp_Object, Lisp_Object)); 38static OSStatus put_scrap_string P_ ((ScrapRef, Lisp_Object, Lisp_Object));
39static OSErr put_scrap_private_timestamp P_ ((ScrapRef, unsigned long)); 39static OSStatus put_scrap_private_timestamp P_ ((ScrapRef, unsigned long));
40static ScrapFlavorType scrap_has_target_type P_ ((ScrapRef, Lisp_Object)); 40static ScrapFlavorType scrap_has_target_type P_ ((ScrapRef, Lisp_Object));
41static Lisp_Object get_scrap_string P_ ((ScrapRef, Lisp_Object)); 41static Lisp_Object get_scrap_string P_ ((ScrapRef, Lisp_Object));
42static OSErr get_scrap_private_timestamp P_ ((ScrapRef, unsigned long *)); 42static OSStatus get_scrap_private_timestamp P_ ((ScrapRef, unsigned long *));
43static Lisp_Object get_scrap_target_type_list P_ ((ScrapRef)); 43static Lisp_Object get_scrap_target_type_list P_ ((ScrapRef));
44static void x_own_selection P_ ((Lisp_Object, Lisp_Object)); 44static void x_own_selection P_ ((Lisp_Object, Lisp_Object));
45static Lisp_Object x_get_local_selection P_ ((Lisp_Object, Lisp_Object, int)); 45static Lisp_Object x_get_local_selection P_ ((Lisp_Object, Lisp_Object, int));
@@ -108,13 +108,13 @@ static Lisp_Object Vmac_service_selection;
108 reference is set to *SCRAP, and it becomes NULL if there's no 108 reference is set to *SCRAP, and it becomes NULL if there's no
109 corresponding scrap. Clear the scrap if CLEAR_P is non-zero. */ 109 corresponding scrap. Clear the scrap if CLEAR_P is non-zero. */
110 110
111static OSErr 111static OSStatus
112get_scrap_from_symbol (sym, clear_p, scrap) 112get_scrap_from_symbol (sym, clear_p, scrap)
113 Lisp_Object sym; 113 Lisp_Object sym;
114 int clear_p; 114 int clear_p;
115 ScrapRef *scrap; 115 ScrapRef *scrap;
116{ 116{
117 OSErr err = noErr; 117 OSStatus err = noErr;
118 Lisp_Object str = Fget (sym, Qmac_scrap_name); 118 Lisp_Object str = Fget (sym, Qmac_scrap_name);
119 119
120 if (!STRINGP (str)) 120 if (!STRINGP (str))
@@ -172,7 +172,7 @@ valid_scrap_target_type_p (sym)
172 172
173/* Clear the scrap whose reference is *SCRAP. */ 173/* Clear the scrap whose reference is *SCRAP. */
174 174
175static INLINE OSErr 175static INLINE OSStatus
176clear_scrap (scrap) 176clear_scrap (scrap)
177 ScrapRef *scrap; 177 ScrapRef *scrap;
178{ 178{
@@ -190,7 +190,7 @@ clear_scrap (scrap)
190/* Put Lisp String STR to the scrap SCRAP. The target type is 190/* Put Lisp String STR to the scrap SCRAP. The target type is
191 specified by TYPE. */ 191 specified by TYPE. */
192 192
193static OSErr 193static OSStatus
194put_scrap_string (scrap, type, str) 194put_scrap_string (scrap, type, str)
195 ScrapRef scrap; 195 ScrapRef scrap;
196 Lisp_Object type, str; 196 Lisp_Object type, str;
@@ -211,7 +211,7 @@ put_scrap_string (scrap, type, str)
211/* Put TIMESTAMP to the scrap SCRAP. The timestamp is used for 211/* Put TIMESTAMP to the scrap SCRAP. The timestamp is used for
212 checking if the scrap is owned by the process. */ 212 checking if the scrap is owned by the process. */
213 213
214static INLINE OSErr 214static INLINE OSStatus
215put_scrap_private_timestamp (scrap, timestamp) 215put_scrap_private_timestamp (scrap, timestamp)
216 ScrapRef scrap; 216 ScrapRef scrap;
217 unsigned long timestamp; 217 unsigned long timestamp;
@@ -233,7 +233,7 @@ scrap_has_target_type (scrap, type)
233 ScrapRef scrap; 233 ScrapRef scrap;
234 Lisp_Object type; 234 Lisp_Object type;
235{ 235{
236 OSErr err; 236 OSStatus err;
237 ScrapFlavorType flavor_type = get_flavor_type_from_symbol (type); 237 ScrapFlavorType flavor_type = get_flavor_type_from_symbol (type);
238 238
239 if (flavor_type) 239 if (flavor_type)
@@ -264,7 +264,7 @@ get_scrap_string (scrap, type)
264 ScrapRef scrap; 264 ScrapRef scrap;
265 Lisp_Object type; 265 Lisp_Object type;
266{ 266{
267 OSErr err; 267 OSStatus err;
268 Lisp_Object result = Qnil; 268 Lisp_Object result = Qnil;
269 ScrapFlavorType flavor_type = get_flavor_type_from_symbol (type); 269 ScrapFlavorType flavor_type = get_flavor_type_from_symbol (type);
270#if TARGET_API_MAC_CARBON 270#if TARGET_API_MAC_CARBON
@@ -310,12 +310,12 @@ get_scrap_string (scrap, type)
310 310
311/* Get timestamp from the scrap SCRAP and set to *TIMPSTAMP. */ 311/* Get timestamp from the scrap SCRAP and set to *TIMPSTAMP. */
312 312
313static OSErr 313static OSStatus
314get_scrap_private_timestamp (scrap, timestamp) 314get_scrap_private_timestamp (scrap, timestamp)
315 ScrapRef scrap; 315 ScrapRef scrap;
316 unsigned long *timestamp; 316 unsigned long *timestamp;
317{ 317{
318 OSErr err = noErr; 318 OSStatus err = noErr;
319#if TARGET_API_MAC_CARBON 319#if TARGET_API_MAC_CARBON
320 ScrapFlavorFlags flags; 320 ScrapFlavorFlags flags;
321 321
@@ -365,7 +365,7 @@ get_scrap_target_type_list (scrap)
365{ 365{
366 Lisp_Object result = Qnil, rest, target_type; 366 Lisp_Object result = Qnil, rest, target_type;
367#if TARGET_API_MAC_CARBON 367#if TARGET_API_MAC_CARBON
368 OSErr err; 368 OSStatus err;
369 UInt32 count, i, type; 369 UInt32 count, i, type;
370 ScrapFlavorInfo *flavor_info = NULL; 370 ScrapFlavorInfo *flavor_info = NULL;
371 Lisp_Object strings = Qnil; 371 Lisp_Object strings = Qnil;
@@ -425,7 +425,7 @@ static void
425x_own_selection (selection_name, selection_value) 425x_own_selection (selection_name, selection_value)
426 Lisp_Object selection_name, selection_value; 426 Lisp_Object selection_name, selection_value;
427{ 427{
428 OSErr err; 428 OSStatus err;
429 ScrapRef scrap; 429 ScrapRef scrap;
430 struct gcpro gcpro1, gcpro2; 430 struct gcpro gcpro1, gcpro2;
431 Lisp_Object rest, handler_fn, value, type; 431 Lisp_Object rest, handler_fn, value, type;
@@ -671,7 +671,7 @@ static Lisp_Object
671x_get_foreign_selection (selection_symbol, target_type, time_stamp) 671x_get_foreign_selection (selection_symbol, target_type, time_stamp)
672 Lisp_Object selection_symbol, target_type, time_stamp; 672 Lisp_Object selection_symbol, target_type, time_stamp;
673{ 673{
674 OSErr err; 674 OSStatus err;
675 ScrapRef scrap; 675 ScrapRef scrap;
676 Lisp_Object result = Qnil; 676 Lisp_Object result = Qnil;
677 677
@@ -765,7 +765,7 @@ Disowning it means there is no such selection. */)
765 Lisp_Object selection; 765 Lisp_Object selection;
766 Lisp_Object time; 766 Lisp_Object time;
767{ 767{
768 OSErr err; 768 OSStatus err;
769 ScrapRef scrap; 769 ScrapRef scrap;
770 Lisp_Object local_selection_data; 770 Lisp_Object local_selection_data;
771 771
@@ -828,7 +828,7 @@ and t is the same as `SECONDARY'. */)
828 (selection) 828 (selection)
829 Lisp_Object selection; 829 Lisp_Object selection;
830{ 830{
831 OSErr err; 831 OSStatus err;
832 ScrapRef scrap; 832 ScrapRef scrap;
833 Lisp_Object result = Qnil, local_selection_data; 833 Lisp_Object result = Qnil, local_selection_data;
834 834
@@ -873,7 +873,7 @@ and t is the same as `SECONDARY'. */)
873 (selection) 873 (selection)
874 Lisp_Object selection; 874 Lisp_Object selection;
875{ 875{
876 OSErr err; 876 OSStatus err;
877 ScrapRef scrap; 877 ScrapRef scrap;
878 Lisp_Object result = Qnil, rest; 878 Lisp_Object result = Qnil, rest;
879 879
@@ -931,7 +931,7 @@ struct suspended_ae_info
931 struct suspended_ae_info *next; 931 struct suspended_ae_info *next;
932}; 932};
933 933
934/* List of deferred apple events at the startup time. */ 934/* List of apple events deferred at the startup time. */
935static struct suspended_ae_info *deferred_apple_events = NULL; 935static struct suspended_ae_info *deferred_apple_events = NULL;
936 936
937/* List of suspended apple events, in order of expiration_tick. */ 937/* List of suspended apple events, in order of expiration_tick. */