diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/term/x-win.el | 6 |
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.") (error nil)) utf8-coding last-coding-system-used) (if utf8 - ;; If it is a locale selection, choose it. - (or (get-text-property 0 'foreign-selection utf8) + ;; If it is a locale selection, or it contains only + ;; ASCII characers, choose it. + (if (or (not (get-text-property 0 'foreign-selection utf8)) + (= (length utf8) (string-bytes utf8))) (setq text utf8))) ;; If not yet decided, try COMPOUND_TEXT. (if (not text) |