diff options
| -rw-r--r-- | lisp/term/x-win.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index c25b7402260..f1708d9ccc6 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el | |||
| @@ -2126,6 +2126,9 @@ This is in addition to, but in preference to, the primary selection." | |||
| 2126 | (cond ((>= (length text) x-cut-buffer-max) | 2126 | (cond ((>= (length text) x-cut-buffer-max) |
| 2127 | (x-set-cut-buffer "" push) | 2127 | (x-set-cut-buffer "" push) |
| 2128 | (setq x-last-selected-text-cut "")) | 2128 | (setq x-last-selected-text-cut "")) |
| 2129 | ;; Don't store a multibyte string that contains | ||
| 2130 | ;; eight-bit-control/graphic chars because they can't be | ||
| 2131 | ;; restored correctly by x-get-cut-buffer. | ||
| 2129 | ((and (multibyte-string-p text) | 2132 | ((and (multibyte-string-p text) |
| 2130 | (let ((charsets (find-charset-string text))) | 2133 | (let ((charsets (find-charset-string text))) |
| 2131 | (or (memq 'eight-bit-control charsets) | 2134 | (or (memq 'eight-bit-control charsets) |