(x-select-text): Don't set a text containing

eight-bit-control/graphic into the cut buffer.

1 files changed, 9 insertions, 3 deletions

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 5665d5a9471..c25b7402260 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -2126,14 +2126,20 @@ This is in addition to, but in preference to, the primary selection."
   (cond ((>= (length text) x-cut-buffer-max)
          (x-set-cut-buffer "" push)
          (setq x-last-selected-text-cut ""))
+        ((and (multibyte-string-p text)
+              (let ((charsets (find-charset-string text)))
+                (or (memq 'eight-bit-control charsets)
+                    (memq 'eight-bit-graphic charsets))))
+         (x-set-cut-buffer "" push)
+         (setq x-last-selected-text-cut ""))
         (t
-      (x-set-cut-buffer text push)
+         (x-set-cut-buffer text push)
          (setq x-last-selected-text-cut text)))
   (x-set-selection 'PRIMARY text)
   (setq x-last-selected-text-primary text)
   (when x-select-enable-clipboard
-      (x-set-selection 'CLIPBOARD text)
-      (setq x-last-selected-text-clipboard text))
+    (x-set-selection 'CLIPBOARD text)
+    (setq x-last-selected-text-clipboard text))
   )
 
 ;;; Return the value of the current X selection.