425 |
|
|
426 |
CHECK_SYMBOL (target_type); |
CHECK_SYMBOL (target_type); |
427 |
handler_fn = Fcdr (Fassq (target_type, Vselection_converter_alist)); |
handler_fn = Fcdr (Fassq (target_type, Vselection_converter_alist)); |
428 |
|
/* gcpro is not needed here since nothing but HANDLER_FN |
429 |
|
is live, and that ought to be a symbol. */ |
430 |
|
|
431 |
if (!NILP (handler_fn)) |
if (!NILP (handler_fn)) |
432 |
value = call3 (handler_fn, |
value = call3 (handler_fn, |
433 |
selection_symbol, (local_request ? Qnil : target_type), |
selection_symbol, (local_request ? Qnil : target_type), |
840 |
|
|
841 |
DONE: |
DONE: |
842 |
|
|
|
UNGCPRO; |
|
|
|
|
843 |
/* Let random lisp code notice that the selection has been asked for. */ |
/* Let random lisp code notice that the selection has been asked for. */ |
844 |
{ |
{ |
845 |
Lisp_Object rest; |
Lisp_Object rest; |
848 |
for (; CONSP (rest); rest = Fcdr (rest)) |
for (; CONSP (rest); rest = Fcdr (rest)) |
849 |
call3 (Fcar (rest), selection_symbol, target_symbol, successful_p); |
call3 (Fcar (rest), selection_symbol, target_symbol, successful_p); |
850 |
} |
} |
851 |
|
|
852 |
|
UNGCPRO; |
853 |
} |
} |
854 |
|
|
855 |
/* Handle a SelectionClear event EVENT, which indicates that some |
/* Handle a SelectionClear event EVENT, which indicates that some |