diff options
Diffstat (limited to 'src/macselect.c')
| -rw-r--r-- | src/macselect.c | 42 |
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; | |||
| 31 | typedef ResType ScrapFlavorType; | 31 | typedef ResType ScrapFlavorType; |
| 32 | #endif /* !TARGET_API_MAC_CARBON */ | 32 | #endif /* !TARGET_API_MAC_CARBON */ |
| 33 | 33 | ||
| 34 | static OSErr get_scrap_from_symbol P_ ((Lisp_Object, int, ScrapRef *)); | 34 | static OSStatus get_scrap_from_symbol P_ ((Lisp_Object, int, ScrapRef *)); |
| 35 | static ScrapFlavorType get_flavor_type_from_symbol P_ ((Lisp_Object)); | 35 | static ScrapFlavorType get_flavor_type_from_symbol P_ ((Lisp_Object)); |
| 36 | static int valid_scrap_target_type_p P_ ((Lisp_Object)); | 36 | static int valid_scrap_target_type_p P_ ((Lisp_Object)); |
| 37 | static OSErr clear_scrap P_ ((ScrapRef *)); | 37 | static OSStatus clear_scrap P_ ((ScrapRef *)); |
| 38 | static OSErr put_scrap_string P_ ((ScrapRef, Lisp_Object, Lisp_Object)); | 38 | static OSStatus put_scrap_string P_ ((ScrapRef, Lisp_Object, Lisp_Object)); |
| 39 | static OSErr put_scrap_private_timestamp P_ ((ScrapRef, unsigned long)); | 39 | static OSStatus put_scrap_private_timestamp P_ ((ScrapRef, unsigned long)); |
| 40 | static ScrapFlavorType scrap_has_target_type P_ ((ScrapRef, Lisp_Object)); | 40 | static ScrapFlavorType scrap_has_target_type P_ ((ScrapRef, Lisp_Object)); |
| 41 | static Lisp_Object get_scrap_string P_ ((ScrapRef, Lisp_Object)); | 41 | static Lisp_Object get_scrap_string P_ ((ScrapRef, Lisp_Object)); |
| 42 | static OSErr get_scrap_private_timestamp P_ ((ScrapRef, unsigned long *)); | 42 | static OSStatus get_scrap_private_timestamp P_ ((ScrapRef, unsigned long *)); |
| 43 | static Lisp_Object get_scrap_target_type_list P_ ((ScrapRef)); | 43 | static Lisp_Object get_scrap_target_type_list P_ ((ScrapRef)); |
| 44 | static void x_own_selection P_ ((Lisp_Object, Lisp_Object)); | 44 | static void x_own_selection P_ ((Lisp_Object, Lisp_Object)); |
| 45 | static Lisp_Object x_get_local_selection P_ ((Lisp_Object, Lisp_Object, int)); | 45 | static 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 | ||
| 111 | static OSErr | 111 | static OSStatus |
| 112 | get_scrap_from_symbol (sym, clear_p, scrap) | 112 | get_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 | ||
| 175 | static INLINE OSErr | 175 | static INLINE OSStatus |
| 176 | clear_scrap (scrap) | 176 | clear_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 | ||
| 193 | static OSErr | 193 | static OSStatus |
| 194 | put_scrap_string (scrap, type, str) | 194 | put_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 | ||
| 214 | static INLINE OSErr | 214 | static INLINE OSStatus |
| 215 | put_scrap_private_timestamp (scrap, timestamp) | 215 | put_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 | ||
| 313 | static OSErr | 313 | static OSStatus |
| 314 | get_scrap_private_timestamp (scrap, timestamp) | 314 | get_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 | |||
| 425 | x_own_selection (selection_name, selection_value) | 425 | x_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 | |||
| 671 | x_get_foreign_selection (selection_symbol, target_type, time_stamp) | 671 | x_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. */ |
| 935 | static struct suspended_ae_info *deferred_apple_events = NULL; | 935 | static 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. */ |