(xselect-convert-to-string): If VALUE is a string,

return a cons of TYPE and the string.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/select.el b/lisp/select.el
index 85ca927d7e..801db31cb6 100644
--- a/lisp/select.el
+++ b/lisp/select.el
@@ -134,7 +134,9 @@ Cut buffers are considered obsolete; you should use selections instead."
 
 (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))