Commit 14324c4d authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(x-select-text): Always set the cut buffer,

but sometimes set it to nothing.  Don't put large strings in clipboard.
parent 60d38d30
......@@ -491,8 +491,10 @@ This returns ARGS with the arguments that have been processed removed."
;;; 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.")
"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
......@@ -503,8 +505,10 @@ This returns ARGS with the arguments that have been processed removed."
;; 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)
(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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment