diff options
Diffstat (limited to 'src/w32select.c')
| -rw-r--r-- | src/w32select.c | 28 |
1 files changed, 15 insertions, 13 deletions
diff --git a/src/w32select.c b/src/w32select.c index e3225c3f996..699c72b71a8 100644 --- a/src/w32select.c +++ b/src/w32select.c | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | /* Selection processing for Emacs on the Microsoft W32 API. | 1 | /* Selection processing for Emacs on the Microsoft W32 API. |
| 2 | 2 | ||
| 3 | Copyright (C) 1993-1994, 2001-2011 Free Software Foundation, Inc. | 3 | Copyright (C) 1993-1994, 2001-2012 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | This file is part of GNU Emacs. | 5 | This file is part of GNU Emacs. |
| 6 | 6 | ||
| @@ -39,7 +39,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */ | |||
| 39 | * | 39 | * |
| 40 | * When copying or cutting (sending data to the OS), the data is | 40 | * When copying or cutting (sending data to the OS), the data is |
| 41 | * announced and stored internally, but only actually rendered on | 41 | * announced and stored internally, but only actually rendered on |
| 42 | * request. The requester determines the format provided. The | 42 | * request. The requestor determines the format provided. The |
| 43 | * {next-}selection-coding-system is only used, when its corresponding | 43 | * {next-}selection-coding-system is only used, when its corresponding |
| 44 | * clipboard type matches the type requested. | 44 | * clipboard type matches the type requested. |
| 45 | * | 45 | * |
| @@ -335,7 +335,7 @@ render_all (Lisp_Object ignore) | |||
| 335 | 335 | ||
| 336 | OpenClipboard (NULL); | 336 | OpenClipboard (NULL); |
| 337 | 337 | ||
| 338 | /* There is no usefull means to report errors here, there are none | 338 | /* There is no useful means to report errors here, there are none |
| 339 | expected anyway, and even if there were errors, they wouldn't do | 339 | expected anyway, and even if there were errors, they wouldn't do |
| 340 | any harm. So we just go ahead and do what has to be done without | 340 | any harm. So we just go ahead and do what has to be done without |
| 341 | bothering with error handling. */ | 341 | bothering with error handling. */ |
| @@ -750,7 +750,7 @@ DEFUN ("w32-set-clipboard-data", Fw32_set_clipboard_data, | |||
| 750 | else | 750 | else |
| 751 | { | 751 | { |
| 752 | /* Advertise all supported formats so that whatever the | 752 | /* Advertise all supported formats so that whatever the |
| 753 | requester chooses, only one encoding step needs to be | 753 | requestor chooses, only one encoding step needs to be |
| 754 | made. This is intentionally different from what we do in | 754 | made. This is intentionally different from what we do in |
| 755 | the handler for WM_RENDERALLFORMATS. */ | 755 | the handler for WM_RENDERALLFORMATS. */ |
| 756 | SetClipboardData (CF_UNICODETEXT, NULL); | 756 | SetClipboardData (CF_UNICODETEXT, NULL); |
| @@ -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 | ||
| @@ -1138,4 +1141,3 @@ globals_of_w32select (void) | |||
| 1138 | 1141 | ||
| 1139 | clipboard_owner = create_owner (); | 1142 | clipboard_owner = create_owner (); |
| 1140 | } | 1143 | } |
| 1141 | |||