Commit f05394cc authored by Kenichi Handa's avatar Kenichi Handa
Browse files

*** empty log message ***

parent 99b631c8
......@@ -2126,6 +2126,9 @@ 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 ""))
;; Don't store a multibyte string that contains
;; eight-bit-control/graphic chars because they can't be
;; restored correctly by x-get-cut-buffer.
((and (multibyte-string-p text)
(let ((charsets (find-charset-string text)))
(or (memq 'eight-bit-control charsets)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment