Mercurial > emacs

changeset 51600:16b245345247

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x-get-selection): If the string returned by x-get-selection-internal has text property `foreign-selection', decode it while preserving that property.
author Kenichi Handa <handa@m17n.org>
date Tue, 17 Jun 2003 10:54:39 +0000
parents de897fd132ef
children c2c18aa16be3
files lisp/select.el
diffstat 1 files changed, 12 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/select.el	Tue Jun 17 10:52:01 2003 +0000
+++ b/lisp/select.el	Tue Jun 17 10:54:39 2003 +0000
@@ -38,7 +38,18 @@
 TYPE may be `SECONDARY' or `CLIPBOARD', in addition to `PRIMARY'.
 DATA-TYPE is usually `STRING', but can also be one of the symbols
 in `selection-converter-alist', which see."
-  (x-get-selection-internal (or type 'PRIMARY) (or data-type 'STRING)))
+  (let ((data (x-get-selection-internal (or type 'PRIMARY)
+					(or data-type 'STRING)))
+	coding)
+    (when (and (stringp data)
+	       (setq data-type (get-text-property 0 'foreign-selection data)))
+      (setq coding (if (eq data-type 'UTF8_STRING)
+		       'utf-8
+		     (or next-selection-coding-system
+			 selection-coding-system))
+	    data (decode-coding-string data coding))
+      (put-text-property 0 (length data) 'foreign-selection data-type data))
+    data))
 
 (defun x-get-clipboard ()
   "Return text pasted to the clipboard."