From: Kenichi Handa <handa@m17n.org>
Date: Mon, 16 Aug 2004 00:07:23 +0000 (+0000)
Subject: term/x-win.el (x-selection-value): If utf8 was successful but
X-Git-Tag: ttn-vms-21-2-B4~5284
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c3ff5bc11c41cbb4e6d361e38675556eb455a372;p=emacs.git

term/x-win.el (x-selection-value): If utf8 was successful but
ctext was not, use utf8 string.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c10c342abe5..a3552763a8c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-08-15  Kenichi Handa  <handa@m17n.org>
+
+	* term/x-win.el (x-selection-value): If utf8 was successful but
+	ctext was not, use utf8 string.
+
 2004-08-14  Davis Herring  <herring@lanl.gov>
 
 	* isearch.el: Remove accidental changes of March 4.  Fix backing
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index d9700809413..61602d1f355 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -2212,7 +2212,8 @@ order until succeed.")
 		     (if utf8
 			 (setq text (x-select-utf8-or-ctext utf8 ctext))
 		       ;; Othewise, choose CTEXT.
-		       (setq text ctext))))
+		       (setq text ctext))
+		   (setq text utf8)))
 	     ;; If not yet decided, try STRING.
 	     (or text
 		 (setq text (condition-case nil