(x-selection-value): Optimize for ASCII only case.

1 files changed, 4 insertions, 2 deletions

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 12991037a60..735d21c8e9e 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -2199,8 +2199,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 local 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)