diff options
| author | Miles Bader | 2004-11-04 08:55:40 +0000 |
|---|---|---|
| committer | Miles Bader | 2004-11-04 08:55:40 +0000 |
| commit | d1a3e560ff62e047d9fa8e8b3b1bc1e56e104c26 (patch) | |
| tree | 935f61a936f33c7690a201b19b86e89c3d864b61 /src/xselect.c | |
| parent | 32dc0e8f9bc2d460b3d964c21989de70282bab61 (diff) | |
| parent | 0683d2414d4de8626f7c46f59937f9bef27302ce (diff) | |
| download | emacs-d1a3e560ff62e047d9fa8e8b3b1bc1e56e104c26.tar.gz emacs-d1a3e560ff62e047d9fa8e8b3b1bc1e56e104c26.zip | |
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-69
Merge from emacs--cvs-trunk--0
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-643
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-649
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-650
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-651
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-655
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-656
Update from CVS: lisp/man.el (Man-xref-normal-file): Fix help-echo.
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-657
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-658
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-659
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-660
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-661
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-667
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-668
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-61
- miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-68
Update from CVS
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. |