2126 |
(cond ((>= (length text) x-cut-buffer-max) |
(cond ((>= (length text) x-cut-buffer-max) |
2127 |
(x-set-cut-buffer "" push) |
(x-set-cut-buffer "" push) |
2128 |
(setq x-last-selected-text-cut "")) |
(setq x-last-selected-text-cut "")) |
2129 |
|
((and (multibyte-string-p text) |
2130 |
|
(let ((charsets (find-charset-string text))) |
2131 |
|
(or (memq 'eight-bit-control charsets) |
2132 |
|
(memq 'eight-bit-graphic charsets)))) |
2133 |
|
(x-set-cut-buffer "" push) |
2134 |
|
(setq x-last-selected-text-cut "")) |
2135 |
(t |
(t |
2136 |
(x-set-cut-buffer text push) |
(x-set-cut-buffer text push) |
2137 |
(setq x-last-selected-text-cut text))) |
(setq x-last-selected-text-cut text))) |
2138 |
(x-set-selection 'PRIMARY text) |
(x-set-selection 'PRIMARY text) |
2139 |
(setq x-last-selected-text-primary text) |
(setq x-last-selected-text-primary text) |
2140 |
(when x-select-enable-clipboard |
(when x-select-enable-clipboard |
2141 |
(x-set-selection 'CLIPBOARD text) |
(x-set-selection 'CLIPBOARD text) |
2142 |
(setq x-last-selected-text-clipboard text)) |
(setq x-last-selected-text-clipboard text)) |
2143 |
) |
) |
2144 |
|
|
2145 |
;;; Return the value of the current X selection. |
;;; Return the value of the current X selection. |