# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1023297256 0
# Node ID e4adbf26467d30413f5f33ca795804cd36aba338
# Parent  a6d15407eba5c32943509574aa2221326b497d73
(xselect-convert-to-string): If VALUE is a string,
return a cons of TYPE and the string.

diff -r a6d15407eba5 -r e4adbf26467d lisp/select.el
--- a/lisp/select.el	Wed Jun 05 17:02:15 2002 +0000
+++ b/lisp/select.el	Wed Jun 05 17:14:16 2002 +0000
@@ -134,7 +134,9 @@
 
 (defun xselect-convert-to-string (selection type value)
   (cond ((stringp value)
-	 value)
+	 ;; Return the type as well, so that xselect.c could honor
+	 ;; requests whose type is STRING.
+	 (cons type value))
 	((overlayp value)
 	 (save-excursion
 	   (or (buffer-name (overlay-buffer value))