From 785080c58c4f792c5474a6a6b9226697268525bd Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 23 Jul 1993 01:43:39 +0000 Subject: [PATCH] (x-select-text): Limit size of text sent to cut buffer. --- lisp/term/x-win.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 5001acaf671..98889b96046 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -491,13 +491,19 @@ This returns ARGS with the arguments that have been processed removed." ;;; 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) - (x-set-cut-buffer text 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)) -- 2.39.5