aboutsummaryrefslogtreecommitdiffstats
path: root/src/xselect.c
diff options
context:
space:
mode:
authorMiles Bader2004-11-04 08:55:40 +0000
committerMiles Bader2004-11-04 08:55:40 +0000
commitd1a3e560ff62e047d9fa8e8b3b1bc1e56e104c26 (patch)
tree935f61a936f33c7690a201b19b86e89c3d864b61 /src/xselect.c
parent32dc0e8f9bc2d460b3d964c21989de70282bab61 (diff)
parent0683d2414d4de8626f7c46f59937f9bef27302ce (diff)
downloademacs-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.c20
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
111static Lisp_Object Vx_lost_selection_hooks; 111static Lisp_Object Vx_lost_selection_functions;
112static Lisp_Object Vx_sent_selection_hooks; 112static 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. */
115static Lisp_Object Vselection_coding_system; 115static 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,
2699and there is no meaningful selection value. */); 2699and 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
2705or when a Lisp program explicitly clears the selection.) 2705or when a Lisp program explicitly clears the selection.)
2706The functions are called with one argument, the selection type 2706The 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.
2712The functions are called with four arguments: 2712The 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
2719to convert into a type that we don't know about or that is inappropriate. 2719to convert into a type that we don't know about or that is inappropriate.
2720This hook doesn't let you change the behavior of Emacs's selection replies, 2720This hook doesn't let you change the behavior of Emacs's selection replies,
2721it merely informs you that they have happened. */); 2721it 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.