diff options
author | Kenichi Handa <[email protected]> | 2004-10-25 00:46:04 +0000 |
---|---|---|
committer | Kenichi Handa <[email protected]> | 2004-10-25 00:46:04 +0000 |
commit | 832fe7204e7ec0c7b98d977f1e0fa92a79cbc60f (patch) | |
tree | 1d1d47193434392856561755fd36912a2602165f /lisp | |
parent | c0f7266a85de8df528e0f5ceba0702b8f979c176 (diff) |
(x-set-cut-buffer): Cancel previous change.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 4 | ||||
-rw-r--r-- | lisp/select.el | 5 |
2 files changed, 0 insertions, 9 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 25e0f80134..e99856fe5f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,3 @@ -2004-10-25 Kenichi Handa <[email protected]> - - * select.el (x-set-cut-buffer): Encode STRING if necessary. - 2004-10-24 Luc Teirlinck <[email protected]> * indent.el (set-left-margin, set-right-margin): Delete redundant diff --git a/lisp/select.el b/lisp/select.el index bca19a5cd6..565ddd7d22 100644 --- a/lisp/select.el +++ b/lisp/select.el @@ -144,11 +144,6 @@ 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)) |