mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-13 03:06:23 -08:00
Code Issues Projects Releases Wiki Activity

(x_get_local_selection): If no conversion function

Browse source 
exists for the requested type, just return nil.
This commit is contained in:
Richard M. Stallman 1993-05-27 04:01:13 +00:00
parent a6c87ac86c
commit 1eb4d468b5
1 changed files with 6 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/xselect.c
View file

@ -357,13 +357,12 @@ x_get_local_selection (selection_symbol, target_type)
CHECK_SYMBOL (target_type, 0);
handler_fn = Fcdr (Fassq (target_type, Vselection_converter_alist));
if (NILP (handler_fn))
Fsignal (Qerror,
Fcons (build_string ("missing selection-conversion function"),
Fcons (target_type, Fcons (value, Qnil))));
value = call3 (handler_fn,
selection_symbol, target_type,
XCONS (XCONS (local_value)->cdr)->car);
if (!NILP (handler_fn))
value = call3 (handler_fn,
selection_symbol, target_type,
XCONS (XCONS (local_value)->cdr)->car);
else
value = Qnil;
unbind_to (count, Qnil);
}