mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(x-set-cut-buffer): Encode STRING if necessary.

Browse Source
This commit is contained in:
Kenichi Handa 2004-10-25 00:22:02 +00:00
parent 29dc7809d5
commit c0f7266a85
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2004-10-25 Kenichi Handa <handa@m17n.org>
* select.el (x-set-cut-buffer): Encode STRING if necessary.
2004-10-24 Luc Teirlinck <teirllm@auburn.edu>
* indent.el (set-left-margin, set-right-margin): Delete redundant

5
lisp/select.el
View File

@ -144,6 +144,11 @@ Cut buffers are considered obsolete; you should use selections instead."
(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))