104 |
;;; Cut Buffer support |
;;; Cut Buffer support |
105 |
|
|
106 |
(defun x-get-cut-buffer (&optional which-one) |
(defun x-get-cut-buffer (&optional which-one) |
107 |
"Returns the value of one of the 8 X server cut-buffers. Optional arg |
"Returns the value of one of the 8 X server cut-buffers. |
108 |
WHICH-ONE should be a number from 0 to 7, defaulting to 0. |
Optional arg WHICH-ONE should be a number from 0 to 7, defaulting to 0. |
109 |
Cut buffers are considered obsolete; you should use selections instead." |
Cut buffers are considered obsolete; you should use selections instead." |
110 |
(x-get-cut-buffer-internal |
(x-get-cut-buffer-internal |
111 |
(if which-one |
(if which-one |