Mercurial > emacs
changeset 3035:5c758290ba6c
(x-set-cut-buffer): New arg PUSH.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 24 May 1993 21:19:26 +0000 |
| parents | dd65780e6246 |
| children | 98f500ca5593 |
| files | lisp/select.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/select.el Mon May 24 21:19:08 1993 +0000 +++ b/lisp/select.el Mon May 24 21:19:26 1993 +0000 @@ -102,14 +102,16 @@ which-one) 'CUT_BUFFER0))) -(defun x-set-cut-buffer (string) +(defun x-set-cut-buffer (string &optional push) "Store STRING into the X server's primary cut buffer. -The previous value of the primary cut buffer is rotated to the secondary +If PUSH is non-nil, also rotate the cut buffers: +this means the previous value of the primary cut buffer moves the second cut buffer, and the second to the third, and so on (there are 8 buffers.) Cut buffers are considered obsolete; you should use selections instead." ;; Check the data type of STRING. (substring string 0 0) - (x-rotate-cut-buffers-internal 1) + (if push + (x-rotate-cut-buffers-internal 1)) (x-store-cut-buffer-internal 'CUT_BUFFER0 string))