comparison lisp/term/x-win.el @ 50114:627c4cc6b42b

(x-select-text): Don't set a text containing eight-bit-control/graphic into the cut buffer.

50113:8accd9a2cbed

  ;; Don't send the cut buffer too much text.
  ;; It becomes slow, and if really big it causes errors.
  (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.
;;; Consult the selection, and the cut buffer.  Treat empty strings
;;; as if they were unset.

50114:627c4cc6b42b

  ;; Don't send the cut buffer too much text.
  ;; It becomes slow, and if really big it causes errors.
  (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.
;;; Consult the selection, and the cut buffer.  Treat empty strings
;;; as if they were unset.