98 |
selection type with a scrap flavor type via `mac-ostype'. */ |
selection type with a scrap flavor type via `mac-ostype'. */ |
99 |
static Lisp_Object Qmac_scrap_name, Qmac_ostype; |
static Lisp_Object Qmac_scrap_name, Qmac_ostype; |
100 |
|
|
101 |
|
#ifdef MAC_OSX |
102 |
/* Selection name for communication via Services menu. */ |
/* Selection name for communication via Services menu. */ |
103 |
static Lisp_Object Vmac_services_selection; |
static Lisp_Object Vmac_services_selection; |
104 |
|
#endif |
105 |
|
|
106 |
/* Get a reference to the scrap corresponding to the symbol SYM. The |
/* Get a reference to the scrap corresponding to the symbol SYM. The |
107 |
reference is set to *SCRAP, and it becomes NULL if there's no |
reference is set to *SCRAP, and it becomes NULL if there's no |
457 |
value = call3 (handler_fn, selection_name, |
value = call3 (handler_fn, selection_name, |
458 |
type, selection_value); |
type, selection_value); |
459 |
|
|
460 |
if (CONSP (value) |
if (STRINGP (value)) |
461 |
&& EQ (XCAR (value), type) |
err = put_scrap_string (scrap, type, value); |
462 |
&& STRINGP (XCDR (value))) |
else if (CONSP (value) |
463 |
|
&& EQ (XCAR (value), type) |
464 |
|
&& STRINGP (XCDR (value))) |
465 |
err = put_scrap_string (scrap, type, XCDR (value)); |
err = put_scrap_string (scrap, type, XCDR (value)); |
466 |
} |
} |
467 |
|
|
626 |
hooks = Vx_lost_selection_functions; |
hooks = Vx_lost_selection_functions; |
627 |
selection_symbol = Fcar (Fcar (Vselection_alist)); |
selection_symbol = Fcar (Fcar (Vselection_alist)); |
628 |
|
|
629 |
if (!EQ (hooks, Qunbound)) |
if (!EQ (hooks, Qunbound) |
630 |
|
&& !NILP (Fx_selection_owner_p (selection_symbol))) |
631 |
{ |
{ |
632 |
for (; CONSP (hooks); hooks = Fcdr (hooks)) |
for (; CONSP (hooks); hooks = Fcdr (hooks)) |
633 |
call1 (Fcar (hooks), selection_symbol); |
call1 (Fcar (hooks), selection_symbol); |
651 |
hooks = Vx_lost_selection_functions; |
hooks = Vx_lost_selection_functions; |
652 |
selection_symbol = Fcar (Fcar (XCDR (rest))); |
selection_symbol = Fcar (Fcar (XCDR (rest))); |
653 |
|
|
654 |
if (!EQ (hooks, Qunbound)) |
if (!EQ (hooks, Qunbound) |
655 |
|
&& !NILP (Fx_selection_owner_p (selection_symbol))) |
656 |
{ |
{ |
657 |
for (; CONSP (hooks); hooks = Fcdr (hooks)) |
for (; CONSP (hooks); hooks = Fcdr (hooks)) |
658 |
call1 (Fcar (hooks), selection_symbol); |
call1 (Fcar (hooks), selection_symbol); |