Commit 39479f7e authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(x-set-cut-buffer): New arg PUSH.

parent 9f112a3d
......@@ -102,14 +102,16 @@ Cut buffers are considered obsolete; you should use selections instead."
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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment