summaryrefslogtreecommitdiff
path: root/lisp/select.el
diff options
context:
space:
mode:
authorKarl Heuer <kwzh@gnu.org>1997-02-20 05:49:58 +0000
committerKarl Heuer <kwzh@gnu.org>1997-02-20 05:49:58 +0000
commit79501c8dd3baad1836d61363c161ec48bbffe99b (patch)
treee2d0b5847dadfdbeb855ff14404cb4a9200bdf7e /lisp/select.el
parentd0c3269a29e943036a4373cb9e28a9520b953ed3 (diff)
downloademacs-79501c8dd3baad1836d61363c161ec48bbffe99b.tar.gz
(x-get-selection): Set default data-type of selection
to COMPOUND_TEXT. (selection-converter-alist): Add an entry for COMPOUND_TEXT.
Diffstat (limited to 'lisp/select.el')
-rw-r--r--lisp/select.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/select.el b/lisp/select.el
index 8fb51428272..b953743fd8b 100644
--- a/lisp/select.el
+++ b/lisp/select.el
@@ -29,8 +29,9 @@
(defun x-get-selection (&optional type data-type)
"Return the value of an X Windows selection.
The argument TYPE (default `PRIMARY') says which selection,
-and the argument DATA-TYPE (default `STRING') says how to convert the data."
- (x-get-selection-internal (or type 'PRIMARY) (or data-type 'STRING)))
+and the argument DATA-TYPE (default `COMPOUND_TEXT') says
+how to convert the data."
+ (x-get-selection-internal (or type 'PRIMARY) (or data-type 'COMPOUND_TEXT)))
(defun x-get-clipboard ()
"Return text pasted to the clipboard."
@@ -287,6 +288,7 @@ Cut buffers are considered obsolete; you should use selections instead."
(setq selection-converter-alist
'((TEXT . xselect-convert-to-string)
+ (COMPOUND_TEXT . xselect-convert-to-string)
(STRING . xselect-convert-to-string)
(TARGETS . xselect-convert-to-targets)
(LENGTH . xselect-convert-to-length)