(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 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)