Mercurial > emacs
changeset 4246:af9d2ade78ed
(x-select-text): Always set the cut buffer,
but sometimes set it to nothing. Don't put large strings in clipboard.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 23 Jul 1993 17:24:45 +0000 |
| parents | 5988aab467cc |
| children | 2b0671553d8c |
| files | lisp/term/x-win.el |
| diffstat | 1 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/x-win.el Fri Jul 23 16:57:24 1993 +0000 +++ b/lisp/term/x-win.el Fri Jul 23 17:24:45 1993 +0000 @@ -491,8 +491,10 @@ ;;; 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 @@ ;; 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))