[Emacs-diffs] Changes to emacs/lisp/term/x-win.el

[Kenichi Handa]

Index: emacs/lisp/term/x-win.el
diff -c emacs/lisp/term/x-win.el:1.161 emacs/lisp/term/x-win.el:1.162
*** emacs/lisp/term/x-win.el:1.161      Mon Mar 10 08:29:05 2003
--- emacs/lisp/term/x-win.el    Thu Mar 13 01:23:59 2003
***************
*** 2126,2139 ****
    (cond ((>= (length text) x-cut-buffer-max)
         (x-set-cut-buffer "" push)
         (setq x-last-selected-text-cut ""))
        (t
!       (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))
    )
  
  ;;; Return the value of the current X selection.
--- 2126,2145 ----
    (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)
         (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))
    )
  
  ;;; Return the value of the current X selection.