# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1047536639 0
# Node ID 627c4cc6b42b7c0d860436733c0838db5a01ce16
# Parent  8accd9a2cbede4dd252bc96111ea0e9f27420244
(x-select-text): Don't set a text containing
eight-bit-control/graphic into the cut buffer.

diff -r 8accd9a2cbed -r 627c4cc6b42b lisp/term/x-win.el
--- a/lisp/term/x-win.el	Thu Mar 13 00:10:12 2003 +0000
+++ b/lisp/term/x-win.el	Thu Mar 13 06:23:59 2003 +0000
@@ -2126,14 +2126,20 @@
   (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.