diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-09-13 16:40:48 +0200 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-09-13 16:40:48 +0200 |
commit | cc390e46c7ba95b76ea133d98fd386214cd01709 (patch) | |
tree | ead4400d22bd07214b782ff7e46e79d473fac419 /lisp/select.el | |
parent | c566235d981eba73c88bbff00b6a1d88360b6e9f (diff) | |
parent | c5fe4acb5fb456d6e8e147d8bc7981ce56c5c03d (diff) | |
download | emacs-cc390e46c7ba95b76ea133d98fd386214cd01709.tar.gz |
Merge from trunk
Diffstat (limited to 'lisp/select.el')
-rw-r--r-- | lisp/select.el | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/lisp/select.el b/lisp/select.el index 842c250df60..3e9cd2d5d53 100644 --- a/lisp/select.el +++ b/lisp/select.el @@ -174,36 +174,6 @@ are not available to other programs." (symbolp data) (integerp data))) -;;; Cut Buffer support - -(declare-function x-get-cut-buffer-internal "xselect.c") - -(defun x-get-cut-buffer (&optional which-one) - "Return the value of one of the 8 X server cut-buffers. -Optional arg WHICH-ONE should be a number from 0 to 7, defaulting to 0. -Cut buffers are considered obsolete; you should use selections instead." - (x-get-cut-buffer-internal - (if which-one - (aref [CUT_BUFFER0 CUT_BUFFER1 CUT_BUFFER2 CUT_BUFFER3 - CUT_BUFFER4 CUT_BUFFER5 CUT_BUFFER6 CUT_BUFFER7] - which-one) - 'CUT_BUFFER0))) - -(declare-function x-rotate-cut-buffers-internal "xselect.c") -(declare-function x-store-cut-buffer-internal "xselect.c") - -(defun x-set-cut-buffer (string &optional push) - "Store STRING into the X server's primary cut buffer. -If PUSH is non-nil, also rotate the cut buffers: -this means the previous value of the primary cut buffer moves to 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." - (or (stringp string) (signal 'wrong-type-argument (list 'stringp string))) - (if push - (x-rotate-cut-buffers-internal 1)) - (x-store-cut-buffer-internal 'CUT_BUFFER0 string)) - - ;; Functions to convert the selection into various other selection types. ;; Every selection type that Emacs handles is implemented this way, except ;; for TIMESTAMP, which is a special case. |