aboutsummaryrefslogtreecommitdiffstats
path: root/src/macselect.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/macselect.c')
-rw-r--r--src/macselect.c15
1 files changed, 8 insertions, 7 deletions
diff --git a/src/macselect.c b/src/macselect.c
index 8e86c7651e2..c6aa97d5be9 100644
--- a/src/macselect.c
+++ b/src/macselect.c
@@ -386,7 +386,9 @@ get_scrap_target_type_list (scrap)
386 { 386 {
387 ScrapFlavorType flavor_type = 0; 387 ScrapFlavorType flavor_type = 0;
388 388
389 if (CONSP (XCAR (rest)) && SYMBOLP (target_type = XCAR (XCAR (rest))) 389 if (CONSP (XCAR (rest))
390 && (target_type = XCAR (XCAR (rest)),
391 SYMBOLP (target_type))
390 && (flavor_type = scrap_has_target_type (scrap, target_type))) 392 && (flavor_type = scrap_has_target_type (scrap, target_type)))
391 { 393 {
392 result = Fcons (target_type, result); 394 result = Fcons (target_type, result);
@@ -449,9 +451,11 @@ x_own_selection (selection_name, selection_value)
449 for (rest = Vselection_converter_alist; CONSP (rest); rest = XCDR (rest)) 451 for (rest = Vselection_converter_alist; CONSP (rest); rest = XCDR (rest))
450 { 452 {
451 if (!(CONSP (XCAR (rest)) 453 if (!(CONSP (XCAR (rest))
452 && SYMBOLP (type = XCAR (XCAR (rest))) 454 && (type = XCAR (XCAR (rest)),
455 SYMBOLP (type))
453 && valid_scrap_target_type_p (type) 456 && valid_scrap_target_type_p (type)
454 && SYMBOLP (handler_fn = XCDR (XCAR (rest))))) 457 && (handler_fn = XCDR (XCAR (rest)),
458 SYMBOLP (handler_fn))))
455 continue; 459 continue;
456 460
457 if (!NILP (handler_fn)) 461 if (!NILP (handler_fn))
@@ -1852,10 +1856,7 @@ and the local selection value (whatever was given to `x-own-selection').
1852 1856
1853The function should return the value to send to the Scrap Manager 1857The function should return the value to send to the Scrap Manager
1854\(must be a string). A return value of nil 1858\(must be a string). A return value of nil
1855means that the conversion could not be done. 1859means that the conversion could not be done. */);
1856A return value which is the symbol `NULL'
1857means that a side-effect was executed,
1858and there is no meaningful selection value. */);
1859 Vselection_converter_alist = Qnil; 1860 Vselection_converter_alist = Qnil;
1860 1861
1861 DEFVAR_LISP ("x-lost-selection-functions", &Vx_lost_selection_functions, 1862 DEFVAR_LISP ("x-lost-selection-functions", &Vx_lost_selection_functions,