# HG changeset patch
# User Jan Dj¸«£rv <jan.h.d@swipnet.se>
# Date 1161242262 0
# Node ID 842c20ea5853ae242360223a10e4a59866c07bb7
# Parent  50ad827e063d7b7873c6bc1a9f970cca96639e20
 * xselect.c (x_handle_selection_request): If the converted_selection
 is NIL or XCDR (converted_selection) is NIL, decline the request.

diff -r 50ad827e063d -r 842c20ea5853 src/ChangeLog
--- a/src/ChangeLog	Thu Oct 19 07:16:27 2006 +0000
+++ b/src/ChangeLog	Thu Oct 19 07:17:42 2006 +0000
@@ -1,3 +1,8 @@
+2006-10-19  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
+
+	* xselect.c (x_handle_selection_request): If the converted_selection
+	is NIL or XCDR (converted_selection) is NIL, decline the request.
+
 2006-10-16  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
 
 	* gtkutil.c (get_utf8_string): Remove warnings with casts.
diff -r 50ad827e063d -r 842c20ea5853 src/xselect.c
--- a/src/xselect.c	Thu Oct 19 07:16:27 2006 +0000
+++ b/src/xselect.c	Thu Oct 19 07:17:42 2006 +0000
@@ -956,6 +956,12 @@
       Atom type;
       int nofree;
 
+      if (CONSP (converted_selection) && NILP (XCDR (converted_selection)))
+        {
+          x_decline_selection_request (event);
+          goto DONE2;
+        }
+
       lisp_data_to_selection_data (SELECTION_EVENT_DISPLAY (event),
 				   converted_selection,
 				   &data, &type, &size, &format, &nofree);
@@ -971,6 +977,8 @@
       if (!nofree)
 	xfree (data);
     }
+
+ DONE2:
   unbind_to (count, Qnil);
 
  DONE: