108 |
QCUT_BUFFER4, QCUT_BUFFER5, QCUT_BUFFER6, QCUT_BUFFER7; |
QCUT_BUFFER4, QCUT_BUFFER5, QCUT_BUFFER6, QCUT_BUFFER7; |
109 |
#endif |
#endif |
110 |
|
|
111 |
static Lisp_Object Vx_lost_selection_hooks; |
static Lisp_Object Vx_lost_selection_functions; |
112 |
static Lisp_Object Vx_sent_selection_hooks; |
static Lisp_Object Vx_sent_selection_functions; |
113 |
/* Coding system for communicating with other X clients via cutbuffer, |
/* Coding system for communicating with other X clients via cutbuffer, |
114 |
selection, and clipboard. */ |
selection, and clipboard. */ |
115 |
static Lisp_Object Vselection_coding_system; |
static Lisp_Object Vselection_coding_system; |
856 |
/* Let random lisp code notice that the selection has been asked for. */ |
/* Let random lisp code notice that the selection has been asked for. */ |
857 |
{ |
{ |
858 |
Lisp_Object rest; |
Lisp_Object rest; |
859 |
rest = Vx_sent_selection_hooks; |
rest = Vx_sent_selection_functions; |
860 |
if (!EQ (rest, Qunbound)) |
if (!EQ (rest, Qunbound)) |
861 |
for (; CONSP (rest); rest = Fcdr (rest)) |
for (; CONSP (rest); rest = Fcdr (rest)) |
862 |
call3 (Fcar (rest), selection_symbol, target_symbol, successful_p); |
call3 (Fcar (rest), selection_symbol, target_symbol, successful_p); |
939 |
|
|
940 |
{ |
{ |
941 |
Lisp_Object rest; |
Lisp_Object rest; |
942 |
rest = Vx_lost_selection_hooks; |
rest = Vx_lost_selection_functions; |
943 |
if (!EQ (rest, Qunbound)) |
if (!EQ (rest, Qunbound)) |
944 |
{ |
{ |
945 |
for (; CONSP (rest); rest = Fcdr (rest)) |
for (; CONSP (rest); rest = Fcdr (rest)) |
972 |
/* Let random Lisp code notice that the selection has been stolen. */ |
/* Let random Lisp code notice that the selection has been stolen. */ |
973 |
Lisp_Object hooks, selection_symbol; |
Lisp_Object hooks, selection_symbol; |
974 |
|
|
975 |
hooks = Vx_lost_selection_hooks; |
hooks = Vx_lost_selection_functions; |
976 |
selection_symbol = Fcar (Fcar (Vselection_alist)); |
selection_symbol = Fcar (Fcar (Vselection_alist)); |
977 |
|
|
978 |
if (!EQ (hooks, Qunbound)) |
if (!EQ (hooks, Qunbound)) |
996 |
/* Let random Lisp code notice that the selection has been stolen. */ |
/* Let random Lisp code notice that the selection has been stolen. */ |
997 |
Lisp_Object hooks, selection_symbol; |
Lisp_Object hooks, selection_symbol; |
998 |
|
|
999 |
hooks = Vx_lost_selection_hooks; |
hooks = Vx_lost_selection_functions; |
1000 |
selection_symbol = Fcar (Fcar (XCDR (rest))); |
selection_symbol = Fcar (Fcar (XCDR (rest))); |
1001 |
|
|
1002 |
if (!EQ (hooks, Qunbound)) |
if (!EQ (hooks, Qunbound)) |
2699 |
and there is no meaningful selection value. */); |
and there is no meaningful selection value. */); |
2700 |
Vselection_converter_alist = Qnil; |
Vselection_converter_alist = Qnil; |
2701 |
|
|
2702 |
DEFVAR_LISP ("x-lost-selection-hooks", &Vx_lost_selection_hooks, |
DEFVAR_LISP ("x-lost-selection-functions", &Vx_lost_selection_functions, |
2703 |
doc: /* A list of functions to be called when Emacs loses an X selection. |
doc: /* A list of functions to be called when Emacs loses an X selection. |
2704 |
\(This happens when some other X client makes its own selection |
\(This happens when some other X client makes its own selection |
2705 |
or when a Lisp program explicitly clears the selection.) |
or when a Lisp program explicitly clears the selection.) |
2706 |
The functions are called with one argument, the selection type |
The functions are called with one argument, the selection type |
2707 |
\(a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'). */); |
\(a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'). */); |
2708 |
Vx_lost_selection_hooks = Qnil; |
Vx_lost_selection_functions = Qnil; |
2709 |
|
|
2710 |
DEFVAR_LISP ("x-sent-selection-hooks", &Vx_sent_selection_hooks, |
DEFVAR_LISP ("x-sent-selection-functions", &Vx_sent_selection_functions, |
2711 |
doc: /* A list of functions to be called when Emacs answers a selection request. |
doc: /* A list of functions to be called when Emacs answers a selection request. |
2712 |
The functions are called with four arguments: |
The functions are called with four arguments: |
2713 |
- the selection name (typically `PRIMARY', `SECONDARY', or `CLIPBOARD'); |
- the selection name (typically `PRIMARY', `SECONDARY', or `CLIPBOARD'); |
2719 |
to convert into a type that we don't know about or that is inappropriate. |
to convert into a type that we don't know about or that is inappropriate. |
2720 |
This hook doesn't let you change the behavior of Emacs's selection replies, |
This hook doesn't let you change the behavior of Emacs's selection replies, |
2721 |
it merely informs you that they have happened. */); |
it merely informs you that they have happened. */); |
2722 |
Vx_sent_selection_hooks = Qnil; |
Vx_sent_selection_functions = Qnil; |
2723 |
|
|
2724 |
DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system, |
DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system, |
2725 |
doc: /* Coding system for communicating with other X clients. |
doc: /* Coding system for communicating with other X clients. |