aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/term/x-win.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 9e37943032b..5b1bbd57d64 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -2198,8 +2198,10 @@ order until succeed.")
2198 (error nil)) 2198 (error nil))
2199 utf8-coding last-coding-system-used) 2199 utf8-coding last-coding-system-used)
2200 (if utf8 2200 (if utf8
2201 ;; If it is a locale selection, choose it. 2201 ;; If it is a locale selection, or it contains only
2202 (or (get-text-property 0 'foreign-selection utf8) 2202 ;; ASCII characers, choose it.
2203 (if (or (not (get-text-property 0 'foreign-selection utf8))
2204 (= (length utf8) (string-bytes utf8)))
2203 (setq text utf8))) 2205 (setq text utf8)))
2204 ;; If not yet decided, try COMPOUND_TEXT. 2206 ;; If not yet decided, try COMPOUND_TEXT.
2205 (if (not text) 2207 (if (not text)