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 c10c342abe5c1731b756d36e0038385c4fc0c90d..a3552763a8cb651ee36f1386efd25ffb6cc7f61d 100644 (file)
--- 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 d97008094136542201794ea9045c72ce95d7ed4f..61602d1f35596e724f8dbc30a7968c666094a62c 100644 (file)
--- 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