[Emacs-diffs] Changes to emacs/lisp/select.el

[Kenichi Handa]

Index: emacs/lisp/select.el
diff -c emacs/lisp/select.el:1.24 emacs/lisp/select.el:1.25
*** emacs/lisp/select.el:1.24   Sat Jul 24 21:53:10 2004
--- emacs/lisp/select.el        Mon Oct 25 00:20:57 2004
***************
*** 144,149 ****
--- 144,154 ----
    (or (stringp string) (signal 'wrong-type-argument (list 'string string)))
    (if push
        (x-rotate-cut-buffers-internal 1))
+   (if (> (string-bytes string) (length string))
+       ;; STRING is a multibyte string contains non-ASCII characters.
+       (if locale-coding-system
+         (setq string (encode-coding-string string locale-coding-system))
+       (setq string (string-make-unibyte string))))
    (x-store-cut-buffer-internal 'CUT_BUFFER0 string))