From: Eli Zaretskii <eliz@gnu.org>
Date: Wed, 5 Jun 2002 17:14:16 +0000 (+0000)
Subject: (xselect-convert-to-string): If VALUE is a string,
X-Git-Tag: ttn-vms-21-2-B4~14764
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d176a839b02506ddd4b3a0f0611c6a2339690b20;p=emacs.git

(xselect-convert-to-string): If VALUE is a string,
return a cons of TYPE and the string.
---

diff --git a/lisp/select.el b/lisp/select.el
index 85ca927d7ef..801db31cb61 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))