comparison lisp/term/x-win.el @ 4246:af9d2ade78ed

(x-select-text): Always set the cut buffer, but sometimes set it to nothing. Don't put large strings in clipboard.

4245:5988aab467cc

;;; We keep track of the last text selected here, so we can check the
;;; current selection against it, and avoid passing back our own text
;;; from x-cut-buffer-or-selection-value.
(defvar x-last-selected-text nil)

(defvar x-cut-buffer-max 20000
  "Max number of characters to put in the cut buffer.")

;;; Make TEXT, a string, the primary and clipboard X selections.
;;; If you are running xclipboard, this means you can effectively
;;; have a window on a copy of the kill-ring.
;;; Also, set the value of X cut buffer 0, for backward compatibility
;;; with older X applications.
(defun x-select-text (text &optional push)
  ;; Don't send the cut buffer too much text.
  ;; It becomes slow, and if really big it causes errors.
  (if (< (length text) x-cut-buffer-max)
      (x-set-cut-buffer text push))
  (x-set-selection 'CLIPBOARD text)
  (x-set-selection 'PRIMARY text)
  (setq x-last-selected-text text))

;;; Return the value of the current X selection.  For compatibility
;;; with older X applications, this checks cut buffer 0 before

4246:af9d2ade78ed

;;; We keep track of the last text selected here, so we can check the
;;; current selection against it, and avoid passing back our own text
;;; from x-cut-buffer-or-selection-value.
(defvar x-last-selected-text nil)

;;; It is said that overlarge strings are slow to put into the cut buffer,
;;; and would crash the clipboard.
(defvar x-cut-buffer-max 20000
  "Max number of characters to put in the cut buffer or clipboard.")

;;; Make TEXT, a string, the primary and clipboard X selections.
;;; If you are running xclipboard, this means you can effectively
;;; have a window on a copy of the kill-ring.
;;; Also, set the value of X cut buffer 0, for backward compatibility
;;; with older X applications.
(defun x-select-text (text &optional push)
  ;; Don't send the cut buffer too much text.
  ;; It becomes slow, and if really big it causes errors.
  (if (< (length text) x-cut-buffer-max)
      (progn
	(x-set-cut-buffer text push)
	(x-set-selection 'CLIPBOARD text))
    (x-set-cut-buffer "" push))
  (x-set-selection 'PRIMARY text)
  (setq x-last-selected-text text))

;;; Return the value of the current X selection.  For compatibility
;;; with older X applications, this checks cut buffer 0 before