aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKenichi Handa2003-03-13 06:27:57 +0000
committerKenichi Handa2003-03-13 06:27:57 +0000
commitf05394cca81679201bbdd24db07b9c41472be1ec (patch)
tree0791d76a305ea1a7f47717060fe23ec904a7c2f8
parent99b631c8bfeff7bfcf9a31abda79c03ccab0475b (diff)
downloademacs-f05394cca81679201bbdd24db07b9c41472be1ec.tar.gz
emacs-f05394cca81679201bbdd24db07b9c41472be1ec.zip
*** empty log message ***
-rw-r--r--lisp/term/x-win.el3
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)