3 |
;; Maintainer: FSF |
;; Maintainer: FSF |
4 |
;; Keywords: internal |
;; Keywords: internal |
5 |
|
|
6 |
;; Copyright (c) 1993, 1994 Free Software Foundation, Inc. |
;; Copyright (c) 1993, 1994, 2004 Free Software Foundation, Inc. |
7 |
;; Based partially on earlier release by Lucid. |
;; Based partially on earlier release by Lucid. |
8 |
|
|
9 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
35 |
and the argument DATA-TYPE (default `STRING') says |
and the argument DATA-TYPE (default `STRING') says |
36 |
how to convert the data. |
how to convert the data. |
37 |
|
|
38 |
TYPE may be `SECONDARY' or `CLIPBOARD', in addition to `PRIMARY'. |
TYPE may be any symbol \(but nil stands for `PRIMARY'). However, |
39 |
|
only a few symbols are commonly used. They conventionally have |
40 |
|
all upper-case names. The most often used ones, in addition to |
41 |
|
`PRIMARY', are `SECONDARY' and `CLIPBOARD'. |
42 |
|
|
43 |
DATA-TYPE is usually `STRING', but can also be one of the symbols |
DATA-TYPE is usually `STRING', but can also be one of the symbols |
44 |
in `selection-converter-alist', which see." |
in `selection-converter-alist', which see." |
45 |
(let ((data (x-get-selection-internal (or type 'PRIMARY) |
(let ((data (x-get-selection-internal (or type 'PRIMARY) |
61 |
|
|
62 |
(defun x-set-selection (type data) |
(defun x-set-selection (type data) |
63 |
"Make an X Windows selection of type TYPE and value DATA. |
"Make an X Windows selection of type TYPE and value DATA. |
64 |
The argument TYPE (default `PRIMARY') says which selection, |
The argument TYPE (nil means `PRIMARY') says which selection, and |
65 |
and DATA specifies the contents. DATA may be a string, |
DATA specifies the contents. TYPE must be a symbol. \(It can also |
66 |
a symbol, an integer (or a cons of two integers or list of two integers). |
be a string, which stands for the symbol with that name, but this |
67 |
|
is considered obsolete.) DATA may be a string, a symbol, an |
68 |
|
integer (or a cons of two integers or list of two integers). |
69 |
|
|
70 |
The selection may also be a cons of two markers pointing to the same buffer, |
The selection may also be a cons of two markers pointing to the same buffer, |
71 |
or an overlay. In these cases, the selection is considered to be the text |
or an overlay. In these cases, the selection is considered to be the text |
75 |
|
|
76 |
The data may also be a vector of valid non-vector selection values. |
The data may also be a vector of valid non-vector selection values. |
77 |
|
|
78 |
Interactively, the text of the region is used as the selection value |
The return value is DATA. |
79 |
if the prefix arg is set." |
|
80 |
|
Interactively, this command sets the primary selection. Without |
81 |
|
prefix argument, it reads the selection in the minibuffer. With |
82 |
|
prefix argument, it uses the text of the region as the selection value ." |
83 |
(interactive (if (not current-prefix-arg) |
(interactive (if (not current-prefix-arg) |
84 |
(list 'PRIMARY (read-string "Set text for pasting: ")) |
(list 'PRIMARY (read-string "Set text for pasting: ")) |
85 |
(list 'PRIMARY (buffer-substring (region-beginning) (region-end))))) |
(list 'PRIMARY (buffer-substring (region-beginning) (region-end))))) |