comparison lisp/term/x-win.el @ 4236:8e14db210975

(x-select-text): Limit size of text sent to cut buffer.

4235:55182207415d

;;; 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)

;;; 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)
  (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

4236:8e14db210975

;;; 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