2 files changed, 7 insertions, 1 deletions

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