Mercurial > emacs
comparison src/xselect.c @ 3166:419d3bf1cb2b
(x_get_local_selection): If no conversion function
exists for the requested type, just return nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 27 May 1993 04:01:13 +0000 |
| parents | e94a593c3952 |
| children | 69239557a899 |
comparison
equal
deleted
inserted
replaced
| 3165:6b47ab3b2a88 | 3166:419d3bf1cb2b |
|---|---|
| 355 count = specpdl_ptr - specpdl; | 355 count = specpdl_ptr - specpdl; |
| 356 specbind (Qinhibit_quit, Qt); | 356 specbind (Qinhibit_quit, Qt); |
| 357 | 357 |
| 358 CHECK_SYMBOL (target_type, 0); | 358 CHECK_SYMBOL (target_type, 0); |
| 359 handler_fn = Fcdr (Fassq (target_type, Vselection_converter_alist)); | 359 handler_fn = Fcdr (Fassq (target_type, Vselection_converter_alist)); |
| 360 if (NILP (handler_fn)) | 360 if (!NILP (handler_fn)) |
| 361 Fsignal (Qerror, | 361 value = call3 (handler_fn, |
| 362 Fcons (build_string ("missing selection-conversion function"), | 362 selection_symbol, target_type, |
| 363 Fcons (target_type, Fcons (value, Qnil)))); | 363 XCONS (XCONS (local_value)->cdr)->car); |
| 364 value = call3 (handler_fn, | 364 else |
| 365 selection_symbol, target_type, | 365 value = Qnil; |
| 366 XCONS (XCONS (local_value)->cdr)->car); | |
| 367 unbind_to (count, Qnil); | 366 unbind_to (count, Qnil); |
| 368 } | 367 } |
| 369 | 368 |
| 370 /* Make sure this value is of a type that we could transmit | 369 /* Make sure this value is of a type that we could transmit |
| 371 to another X client. */ | 370 to another X client. */ |