Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 04:17:35 +00:00
Code Issues Projects Releases Packages Wiki Activity

(x-select-text): Don't set a text containing

Browse source 
eight-bit-control/graphic into the cut buffer.
This commit is contained in:
Kenichi Handa 2003-03-13 06:23:59 +00:00
parent 25cc008095
commit 99b631c8bf
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/term/x-win.el
View file

@ -2126,14 +2126,20 @@ This is in addition to, but in preference to, the primary selection."
(cond ((>= (length text) x-cut-buffer-max)
(x-set-cut-buffer "" push)
(setq x-last-selected-text-cut ""))
((and (multibyte-string-p text)
(let ((charsets (find-charset-string text)))
(or (memq 'eight-bit-control charsets)
(memq 'eight-bit-graphic charsets))))
(x-set-cut-buffer "" push)
(setq x-last-selected-text-cut ""))
(t
(x-set-cut-buffer text push)
(x-set-cut-buffer text push)
(setq x-last-selected-text-cut text)))
(x-set-selection 'PRIMARY text)
(setq x-last-selected-text-primary text)
(when x-select-enable-clipboard
(x-set-selection 'CLIPBOARD text)
(setq x-last-selected-text-clipboard text))
(x-set-selection 'CLIPBOARD text)
(setq x-last-selected-text-clipboard text))
)
;;; Return the value of the current X selection.