diff options
Diffstat (limited to 'src/w32select.c')
| -rw-r--r-- | src/w32select.c | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/src/w32select.c b/src/w32select.c index c60376b3a91..699c72b71a8 100644 --- a/src/w32select.c +++ b/src/w32select.c | |||
| @@ -1009,14 +1009,17 @@ DEFUN ("w32-get-clipboard-data", Fw32_get_clipboard_data, | |||
| 1009 | /* Support checking for a clipboard selection. */ | 1009 | /* Support checking for a clipboard selection. */ |
| 1010 | 1010 | ||
| 1011 | DEFUN ("x-selection-exists-p", Fx_selection_exists_p, Sx_selection_exists_p, | 1011 | DEFUN ("x-selection-exists-p", Fx_selection_exists_p, Sx_selection_exists_p, |
| 1012 | 0, 1, 0, | 1012 | 0, 2, 0, |
| 1013 | doc: /* Whether there is an owner for the given X Selection. | 1013 | doc: /* Whether there is an owner for the given X selection. |
| 1014 | The arg should be the name of the selection in question, typically one of | 1014 | SELECTION should be the name of the selection in question, typically |
| 1015 | the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'. | 1015 | one of the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'. (X expects |
| 1016 | \(Those are literal upper-case symbol names, since that's what X expects.) | 1016 | these literal upper-case names.) The symbol nil is the same as |
| 1017 | For convenience, the symbol nil is the same as `PRIMARY', | 1017 | `PRIMARY', and t is the same as `SECONDARY'. |
| 1018 | and t is the same as `SECONDARY'. */) | 1018 | |
| 1019 | (Lisp_Object selection) | 1019 | TERMINAL should be a terminal object or a frame specifying the X |
| 1020 | server to query. If omitted or nil, that stands for the selected | ||
| 1021 | frame's display, or the first available X display. */) | ||
| 1022 | (Lisp_Object selection, Lisp_Object terminal) | ||
| 1020 | { | 1023 | { |
| 1021 | CHECK_SYMBOL (selection); | 1024 | CHECK_SYMBOL (selection); |
| 1022 | 1025 | ||