changeset 17012:f1932b36f01d

(x-get-selection): Set default data-type of selection to COMPOUND_TEXT. (selection-converter-alist): Add an entry for COMPOUND_TEXT.
author Karl Heuer <kwzh@gnu.org>
date Thu, 20 Feb 1997 05:49:58 +0000
parents d6a6cfeb9904
children d6ce795e84da
files lisp/select.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/select.el	Thu Feb 20 05:49:08 1997 +0000
+++ b/lisp/select.el	Thu Feb 20 05:49:58 1997 +0000
@@ -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 @@
 
 (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)