51 |
|
|
52 |
#if 0 |
#if 0 |
53 |
DEFUN ("w32-open-clipboard", Fw32_open_clipboard, Sw32_open_clipboard, 0, 1, 0, |
DEFUN ("w32-open-clipboard", Fw32_open_clipboard, Sw32_open_clipboard, 0, 1, 0, |
54 |
"This opens the clipboard with the given frame pointer.") |
doc: /* This opens the clipboard with the given frame pointer. */) |
55 |
(frame) |
(frame) |
56 |
Lisp_Object frame; |
Lisp_Object frame; |
57 |
{ |
{ |
69 |
return (ok ? frame : Qnil); |
return (ok ? frame : Qnil); |
70 |
} |
} |
71 |
|
|
72 |
DEFUN ("w32-empty-clipboard", Fw32_empty_clipboard, Sw32_empty_clipboard, 0, 0, 0, |
DEFUN ("w32-empty-clipboard", Fw32_empty_clipboard, |
73 |
"This empties the clipboard and assigns ownership to the window which opened the clipboard.") |
Sw32_empty_clipboard, 0, 0, 0, |
74 |
|
doc: /* Empty the clipboard. |
75 |
|
Assigns ownership of the clipboard to the window which opened it. */) |
76 |
() |
() |
77 |
{ |
{ |
78 |
BOOL ok = FALSE; |
BOOL ok = FALSE; |
86 |
return (ok ? Qt : Qnil); |
return (ok ? Qt : Qnil); |
87 |
} |
} |
88 |
|
|
89 |
DEFUN ("w32-close-clipboard", Fw32_close_clipboard, Sw32_close_clipboard, 0, 0, 0, |
DEFUN ("w32-close-clipboard", Fw32_close_clipboard, |
90 |
"This closes the clipboard.") |
Sw32_close_clipboard, 0, 0, 0, |
91 |
|
doc: /* Close the clipboard. */) |
92 |
() |
() |
93 |
{ |
{ |
94 |
BOOL ok = FALSE; |
BOOL ok = FALSE; |
104 |
|
|
105 |
#endif |
#endif |
106 |
|
|
107 |
DEFUN ("w32-set-clipboard-data", Fw32_set_clipboard_data, Sw32_set_clipboard_data, 1, 2, 0, |
DEFUN ("w32-set-clipboard-data", Fw32_set_clipboard_data, |
108 |
"This sets the clipboard data to the given text.") |
Sw32_set_clipboard_data, 1, 2, 0, |
109 |
|
doc: /* This sets the clipboard data to the given text. */) |
110 |
(string, frame) |
(string, frame) |
111 |
Lisp_Object string, frame; |
Lisp_Object string, frame; |
112 |
{ |
{ |
252 |
return (ok ? string : Qnil); |
return (ok ? string : Qnil); |
253 |
} |
} |
254 |
|
|
255 |
DEFUN ("w32-get-clipboard-data", Fw32_get_clipboard_data, Sw32_get_clipboard_data, 0, 1, 0, |
DEFUN ("w32-get-clipboard-data", Fw32_get_clipboard_data, |
256 |
"This gets the clipboard data in text format.") |
Sw32_get_clipboard_data, 0, 1, 0, |
257 |
|
doc: /* This gets the clipboard data in text format. */) |
258 |
(frame) |
(frame) |
259 |
Lisp_Object frame; |
Lisp_Object frame; |
260 |
{ |
{ |
399 |
/* Support checking for a clipboard selection. */ |
/* Support checking for a clipboard selection. */ |
400 |
|
|
401 |
DEFUN ("x-selection-exists-p", Fx_selection_exists_p, Sx_selection_exists_p, |
DEFUN ("x-selection-exists-p", Fx_selection_exists_p, Sx_selection_exists_p, |
402 |
0, 1, 0, |
0, 1, 0, |
403 |
"Whether there is an owner for the given X Selection.\n\ |
doc: /* Whether there is an owner for the given X Selection. |
404 |
The arg should be the name of the selection in question, typically one of\n\ |
The arg should be the name of the selection in question, typically one of |
405 |
the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'.\n\ |
the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'. |
406 |
\(Those are literal upper-case symbol names, since that's what X expects.)\n\ |
\(Those are literal upper-case symbol names, since that's what X expects.) |
407 |
For convenience, the symbol nil is the same as `PRIMARY',\n\ |
For convenience, the symbol nil is the same as `PRIMARY', |
408 |
and t is the same as `SECONDARY'.") |
and t is the same as `SECONDARY'. */) |
409 |
(selection) |
(selection) |
410 |
Lisp_Object selection; |
Lisp_Object selection; |
411 |
{ |
{ |
447 |
defsubr (&Sx_selection_exists_p); |
defsubr (&Sx_selection_exists_p); |
448 |
|
|
449 |
DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system, |
DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system, |
450 |
"Coding system for communicating with other X clients.\n\ |
doc: /* Coding system for communicating with other programs. |
451 |
When sending or receiving text via cut_buffer, selection, and clipboard,\n\ |
When sending or receiving text via cut_buffer, selection, and clipboard, |
452 |
the text is encoded or decoded by this coding system.\n\ |
the text is encoded or decoded by this coding system. */); |
|
A default value is `compound-text'"); |
|
453 |
Vselection_coding_system=intern ("iso-latin-1-dos"); |
Vselection_coding_system=intern ("iso-latin-1-dos"); |
454 |
|
|
455 |
DEFVAR_LISP ("next-selection-coding-system", &Vnext_selection_coding_system, |
DEFVAR_LISP ("next-selection-coding-system", &Vnext_selection_coding_system, |
456 |
"Coding system for the next communication with other X clients.\n\ |
doc: /* Coding system for the next communication with other programs. |
457 |
Usually, `selection-coding-system' is used for communicating with\n\ |
Usually, `selection-coding-system' is used for communicating with |
458 |
other X clients. But, if this variable is set, it is used for the\n\ |
other programs. But, if this variable is set, it is used for the |
459 |
next communication only. After the communication, this variable is\n\ |
next communication only. After the communication, this variable is |
460 |
set to nil."); |
set to nil. */); |
461 |
Vnext_selection_coding_system = Qnil; |
Vnext_selection_coding_system = Qnil; |
462 |
|
|
463 |
QCLIPBOARD = intern ("CLIPBOARD"); staticpro (&QCLIPBOARD); |
QCLIPBOARD = intern ("CLIPBOARD"); staticpro (&QCLIPBOARD); |