diff options
| author | Kenichi Handa | 2004-10-25 00:46:04 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2004-10-25 00:46:04 +0000 |
| commit | 832fe7204e7ec0c7b98d977f1e0fa92a79cbc60f (patch) | |
| tree | 1d1d47193434392856561755fd36912a2602165f /lisp/select.el | |
| parent | c0f7266a85de8df528e0f5ceba0702b8f979c176 (diff) | |
| download | emacs-832fe7204e7ec0c7b98d977f1e0fa92a79cbc60f.tar.gz emacs-832fe7204e7ec0c7b98d977f1e0fa92a79cbc60f.zip | |
(x-set-cut-buffer): Cancel previous change.
Diffstat (limited to 'lisp/select.el')
| -rw-r--r-- | lisp/select.el | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/lisp/select.el b/lisp/select.el index bca19a5cd6e..565ddd7d22e 100644 --- a/lisp/select.el +++ b/lisp/select.el | |||
| @@ -144,11 +144,6 @@ Cut buffers are considered obsolete; you should use selections instead." | |||
| 144 | (or (stringp string) (signal 'wrong-type-argument (list 'string string))) | 144 | (or (stringp string) (signal 'wrong-type-argument (list 'string string))) |
| 145 | (if push | 145 | (if push |
| 146 | (x-rotate-cut-buffers-internal 1)) | 146 | (x-rotate-cut-buffers-internal 1)) |
| 147 | (if (> (string-bytes string) (length string)) | ||
| 148 | ;; STRING is a multibyte string contains non-ASCII characters. | ||
| 149 | (if locale-coding-system | ||
| 150 | (setq string (encode-coding-string string locale-coding-system)) | ||
| 151 | (setq string (string-make-unibyte string)))) | ||
| 152 | (x-store-cut-buffer-internal 'CUT_BUFFER0 string)) | 147 | (x-store-cut-buffer-internal 'CUT_BUFFER0 string)) |
| 153 | 148 | ||
| 154 | 149 | ||