From 39479f7efaa24bb3f2ffe9f4c3c3ac1da7dda45a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 24 May 1993 21:19:26 +0000 Subject: [PATCH] (x-set-cut-buffer): New arg PUSH. --- lisp/select.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/select.el b/lisp/select.el index 0b55bebd24d..85c8d4a2ade 100644 --- a/lisp/select.el +++ b/lisp/select.el @@ -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))