summaryrefslogtreecommitdiff
path: root/lisp/select.el
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2002-06-05 17:14:16 +0000
committerEli Zaretskii <eliz@gnu.org>2002-06-05 17:14:16 +0000
commit774e0f38f79303940c7be4654393414e76b8050c (patch)
treeec9444bbb834f332918ab062b3995c74b206a03e /lisp/select.el
parent3fdaaad0fd6ccf43543e5a43bd7ed03533ae58f7 (diff)
downloademacs-774e0f38f79303940c7be4654393414e76b8050c.tar.gz
(xselect-convert-to-string): If VALUE is a string,
return a cons of TYPE and the string.
Diffstat (limited to 'lisp/select.el')
-rw-r--r--lisp/select.el4
1 files changed, 3 insertions, 1 deletions
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))