diff options
Diffstat (limited to 'src/xselect.c')
| -rw-r--r-- | src/xselect.c | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/src/xselect.c b/src/xselect.c index 1e3efd2bf54..35f4586b754 100644 --- a/src/xselect.c +++ b/src/xselect.c | |||
| @@ -108,8 +108,8 @@ Lisp_Object QCUT_BUFFER0, QCUT_BUFFER1, QCUT_BUFFER2, QCUT_BUFFER3, | |||
| 108 | QCUT_BUFFER4, QCUT_BUFFER5, QCUT_BUFFER6, QCUT_BUFFER7; | 108 | QCUT_BUFFER4, QCUT_BUFFER5, QCUT_BUFFER6, QCUT_BUFFER7; |
| 109 | #endif | 109 | #endif |
| 110 | 110 | ||
| 111 | static Lisp_Object Vx_lost_selection_hooks; | 111 | static Lisp_Object Vx_lost_selection_functions; |
| 112 | static Lisp_Object Vx_sent_selection_hooks; | 112 | static Lisp_Object Vx_sent_selection_functions; |
| 113 | /* Coding system for communicating with other X clients via cutbuffer, | 113 | /* Coding system for communicating with other X clients via cutbuffer, |
| 114 | selection, and clipboard. */ | 114 | selection, and clipboard. */ |
| 115 | static Lisp_Object Vselection_coding_system; | 115 | static Lisp_Object Vselection_coding_system; |
| @@ -856,7 +856,7 @@ x_handle_selection_request (event) | |||
| 856 | /* Let random lisp code notice that the selection has been asked for. */ | 856 | /* Let random lisp code notice that the selection has been asked for. */ |
| 857 | { | 857 | { |
| 858 | Lisp_Object rest; | 858 | Lisp_Object rest; |
| 859 | rest = Vx_sent_selection_hooks; | 859 | rest = Vx_sent_selection_functions; |
| 860 | if (!EQ (rest, Qunbound)) | 860 | if (!EQ (rest, Qunbound)) |
| 861 | for (; CONSP (rest); rest = Fcdr (rest)) | 861 | for (; CONSP (rest); rest = Fcdr (rest)) |
| 862 | call3 (Fcar (rest), selection_symbol, target_symbol, successful_p); | 862 | call3 (Fcar (rest), selection_symbol, target_symbol, successful_p); |
| @@ -939,7 +939,7 @@ x_handle_selection_clear (event) | |||
| 939 | 939 | ||
| 940 | { | 940 | { |
| 941 | Lisp_Object rest; | 941 | Lisp_Object rest; |
| 942 | rest = Vx_lost_selection_hooks; | 942 | rest = Vx_lost_selection_functions; |
| 943 | if (!EQ (rest, Qunbound)) | 943 | if (!EQ (rest, Qunbound)) |
| 944 | { | 944 | { |
| 945 | for (; CONSP (rest); rest = Fcdr (rest)) | 945 | for (; CONSP (rest); rest = Fcdr (rest)) |
| @@ -972,7 +972,7 @@ x_clear_frame_selections (f) | |||
| 972 | /* Let random Lisp code notice that the selection has been stolen. */ | 972 | /* Let random Lisp code notice that the selection has been stolen. */ |
| 973 | Lisp_Object hooks, selection_symbol; | 973 | Lisp_Object hooks, selection_symbol; |
| 974 | 974 | ||
| 975 | hooks = Vx_lost_selection_hooks; | 975 | hooks = Vx_lost_selection_functions; |
| 976 | selection_symbol = Fcar (Fcar (Vselection_alist)); | 976 | selection_symbol = Fcar (Fcar (Vselection_alist)); |
| 977 | 977 | ||
| 978 | if (!EQ (hooks, Qunbound)) | 978 | if (!EQ (hooks, Qunbound)) |
| @@ -996,7 +996,7 @@ x_clear_frame_selections (f) | |||
| 996 | /* Let random Lisp code notice that the selection has been stolen. */ | 996 | /* Let random Lisp code notice that the selection has been stolen. */ |
| 997 | Lisp_Object hooks, selection_symbol; | 997 | Lisp_Object hooks, selection_symbol; |
| 998 | 998 | ||
| 999 | hooks = Vx_lost_selection_hooks; | 999 | hooks = Vx_lost_selection_functions; |
| 1000 | selection_symbol = Fcar (Fcar (XCDR (rest))); | 1000 | selection_symbol = Fcar (Fcar (XCDR (rest))); |
| 1001 | 1001 | ||
| 1002 | if (!EQ (hooks, Qunbound)) | 1002 | if (!EQ (hooks, Qunbound)) |
| @@ -2699,15 +2699,15 @@ means that a side-effect was executed, | |||
| 2699 | and there is no meaningful selection value. */); | 2699 | and there is no meaningful selection value. */); |
| 2700 | Vselection_converter_alist = Qnil; | 2700 | Vselection_converter_alist = Qnil; |
| 2701 | 2701 | ||
| 2702 | DEFVAR_LISP ("x-lost-selection-hooks", &Vx_lost_selection_hooks, | 2702 | 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. | 2703 | 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 | 2704 | \(This happens when some other X client makes its own selection |
| 2705 | or when a Lisp program explicitly clears the selection.) | 2705 | or when a Lisp program explicitly clears the selection.) |
| 2706 | The functions are called with one argument, the selection type | 2706 | The functions are called with one argument, the selection type |
| 2707 | \(a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'). */); | 2707 | \(a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'). */); |
| 2708 | Vx_lost_selection_hooks = Qnil; | 2708 | Vx_lost_selection_functions = Qnil; |
| 2709 | 2709 | ||
| 2710 | DEFVAR_LISP ("x-sent-selection-hooks", &Vx_sent_selection_hooks, | 2710 | 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. | 2711 | doc: /* A list of functions to be called when Emacs answers a selection request. |
| 2712 | The functions are called with four arguments: | 2712 | The functions are called with four arguments: |
| 2713 | - the selection name (typically `PRIMARY', `SECONDARY', or `CLIPBOARD'); | 2713 | - the selection name (typically `PRIMARY', `SECONDARY', or `CLIPBOARD'); |
| @@ -2719,7 +2719,7 @@ including being asked for a selection that we no longer own, or being asked | |||
| 2719 | to convert into a type that we don't know about or that is inappropriate. | 2719 | 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, | 2720 | This hook doesn't let you change the behavior of Emacs's selection replies, |
| 2721 | it merely informs you that they have happened. */); | 2721 | it merely informs you that they have happened. */); |
| 2722 | Vx_sent_selection_hooks = Qnil; | 2722 | Vx_sent_selection_functions = Qnil; |
| 2723 | 2723 | ||
| 2724 | DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system, | 2724 | DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system, |
| 2725 | doc: /* Coding system for communicating with other X clients. | 2725 | doc: /* Coding system for communicating with other X clients. |