aboutsummaryrefslogtreecommitdiffstats
path: root/src/w32select.c
diff options
context:
space:
mode:
authorStefan Monnier2012-03-25 16:37:21 -0400
committerStefan Monnier2012-03-25 16:37:21 -0400
commit699c782b7668c44d0fa4446331b0590a6d5dac82 (patch)
tree5dcce364741d0761920a3d274b0fc8aba4103d45 /src/w32select.c
parent98fb480ee31bf74cf554044f60f21df16566dd7f (diff)
parente99a9b8bdccadded1f6fae88ee7a2a93dfd4eacf (diff)
downloademacs-pending.tar.gz
emacs-pending.zip
Merge from trunkpending
Diffstat (limited to 'src/w32select.c')
-rw-r--r--src/w32select.c28
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
3Copyright (C) 1993-1994, 2001-2011 Free Software Foundation, Inc. 3Copyright (C) 1993-1994, 2001-2012 Free Software Foundation, Inc.
4 4
5This file is part of GNU Emacs. 5This 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
1011DEFUN ("x-selection-exists-p", Fx_selection_exists_p, Sx_selection_exists_p, 1011DEFUN ("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.
1014The arg should be the name of the selection in question, typically one of 1014SELECTION should be the name of the selection in question, typically
1015the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'. 1015one of the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'. (X expects
1016\(Those are literal upper-case symbol names, since that's what X expects.) 1016these literal upper-case names.) The symbol nil is the same as
1017For convenience, the symbol nil is the same as `PRIMARY', 1017`PRIMARY', and t is the same as `SECONDARY'.
1018and t is the same as `SECONDARY'. */) 1018
1019 (Lisp_Object selection) 1019TERMINAL should be a terminal object or a frame specifying the X
1020server to query. If omitted or nil, that stands for the selected
1021frame'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