481 |
"(Clipboard interface failure; clipboard data not set.)"; |
"(Clipboard interface failure; clipboard data not set.)"; |
482 |
|
|
483 |
DEFUN ("w16-set-clipboard-data", Fw16_set_clipboard_data, Sw16_set_clipboard_data, 1, 2, 0, |
DEFUN ("w16-set-clipboard-data", Fw16_set_clipboard_data, Sw16_set_clipboard_data, 1, 2, 0, |
484 |
"This sets the clipboard data to the given text.") |
doc: /* This sets the clipboard data to the given text. */) |
485 |
(string, frame) |
(string, frame) |
486 |
Lisp_Object string, frame; |
Lisp_Object string, frame; |
487 |
{ |
{ |
488 |
unsigned ok = 1, put_status = 0; |
unsigned ok = 1, put_status = 0; |
489 |
int nbytes; |
int nbytes; |
592 |
} |
} |
593 |
|
|
594 |
DEFUN ("w16-get-clipboard-data", Fw16_get_clipboard_data, Sw16_get_clipboard_data, 0, 1, 0, |
DEFUN ("w16-get-clipboard-data", Fw16_get_clipboard_data, Sw16_get_clipboard_data, 0, 1, 0, |
595 |
"This gets the clipboard data in text format.") |
doc: /* This gets the clipboard data in text format. */) |
596 |
(frame) |
(frame) |
597 |
Lisp_Object frame; |
Lisp_Object frame; |
598 |
{ |
{ |
691 |
/* Support checking for a clipboard selection. */ |
/* Support checking for a clipboard selection. */ |
692 |
|
|
693 |
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, |
694 |
0, 1, 0, |
0, 1, 0, |
695 |
"Whether there is an owner for the given X Selection.\n\ |
doc: /* Whether there is an owner for the given X Selection. |
696 |
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 |
697 |
the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'.\n\ |
the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'. |
698 |
\(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.) |
699 |
For convenience, the symbol nil is the same as `PRIMARY',\n\ |
For convenience, the symbol nil is the same as `PRIMARY', |
700 |
and t is the same as `SECONDARY'.") |
and t is the same as `SECONDARY'. */) |
701 |
(selection) |
(selection) |
702 |
Lisp_Object selection; |
Lisp_Object selection; |
703 |
{ |
{ |
704 |
CHECK_SYMBOL (selection); |
CHECK_SYMBOL (selection); |
741 |
defsubr (&Sx_selection_exists_p); |
defsubr (&Sx_selection_exists_p); |
742 |
|
|
743 |
DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system, |
DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system, |
744 |
"Coding system for communicating with other X clients.\n\ |
doc: /* Coding system for communicating with other X clients. |
745 |
When sending or receiving text via cut_buffer, selection, and clipboard,\n\ |
When sending or receiving text via cut_buffer, selection, and clipboard, |
746 |
the text is encoded or decoded by this coding system.\n\ |
the text is encoded or decoded by this coding system. |
747 |
A default value is `iso-latin-1-dos'"); |
A default value is `iso-latin-1-dos'. */); |
748 |
Vselection_coding_system=intern ("iso-latin-1-dos"); |
Vselection_coding_system=intern ("iso-latin-1-dos"); |
749 |
|
|
750 |
DEFVAR_LISP ("next-selection-coding-system", &Vnext_selection_coding_system, |
DEFVAR_LISP ("next-selection-coding-system", &Vnext_selection_coding_system, |
751 |
"Coding system for the next communication with other X clients.\n\ |
doc: /* Coding system for the next communication with other X clients. |
752 |
Usually, `selection-coding-system' is used for communicating with\n\ |
Usually, `selection-coding-system' is used for communicating with |
753 |
other X clients. But, if this variable is set, it is used for the\n\ |
other X clients. But, if this variable is set, it is used for the |
754 |
next communication only. After the communication, this variable is\n\ |
next communication only. After the communication, this variable is |
755 |
set to nil."); |
set to nil. */); |
756 |
Vnext_selection_coding_system = Qnil; |
Vnext_selection_coding_system = Qnil; |
757 |
|
|
758 |
QPRIMARY = intern ("PRIMARY"); staticpro (&QPRIMARY); |
QPRIMARY = intern ("PRIMARY"); staticpro (&QPRIMARY); |