diff options
| -rw-r--r-- | lisp/select.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/select.el b/lisp/select.el index 60259142522..e9e5e2185f6 100644 --- a/lisp/select.el +++ b/lisp/select.el | |||
| @@ -125,6 +125,8 @@ prefix argument, it uses the text of the region as the selection value ." | |||
| 125 | 125 | ||
| 126 | ;;; Cut Buffer support | 126 | ;;; Cut Buffer support |
| 127 | 127 | ||
| 128 | (declare-function x-get-cut-buffer-internal "xselect.c") | ||
| 129 | |||
| 128 | (defun x-get-cut-buffer (&optional which-one) | 130 | (defun x-get-cut-buffer (&optional which-one) |
| 129 | "Returns the value of one of the 8 X server cut-buffers. | 131 | "Returns the value of one of the 8 X server cut-buffers. |
| 130 | Optional arg WHICH-ONE should be a number from 0 to 7, defaulting to 0. | 132 | Optional arg WHICH-ONE should be a number from 0 to 7, defaulting to 0. |
| @@ -136,6 +138,9 @@ Cut buffers are considered obsolete; you should use selections instead." | |||
| 136 | which-one) | 138 | which-one) |
| 137 | 'CUT_BUFFER0))) | 139 | 'CUT_BUFFER0))) |
| 138 | 140 | ||
| 141 | (declare-function x-rotate-cut-buffers-internal "xselect.c") | ||
| 142 | (declare-function x-store-cut-buffer-internal "xselect.c") | ||
| 143 | |||
| 139 | (defun x-set-cut-buffer (string &optional push) | 144 | (defun x-set-cut-buffer (string &optional push) |
| 140 | "Store STRING into the X server's primary cut buffer. | 145 | "Store STRING into the X server's primary cut buffer. |
| 141 | If PUSH is non-nil, also rotate the cut buffers: | 146 | If PUSH is non-nil, also rotate the cut buffers: |