aboutsummaryrefslogtreecommitdiffstats
path: root/src/xselect.c
diff options
context:
space:
mode:
authorKaroly Lorentey2004-10-31 02:05:24 +0000
committerKaroly Lorentey2004-10-31 02:05:24 +0000
commite0bc17abe6979d607e8de4684dddb96e53c60065 (patch)
treeb7cb7bc5df9f12138937fd958cdf4b9c2d19ee3a /src/xselect.c
parentf158167a84475d5fc41931531406821e6413afd7 (diff)
parent707994d2626cf0f01c3ece4028d73835068d64dc (diff)
downloademacs-e0bc17abe6979d607e8de4684dddb96e53c60065.tar.gz
emacs-e0bc17abe6979d607e8de4684dddb96e53c60065.zip
Merged in changes from CVS trunk.
Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-639 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-640 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-641 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-642 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-643 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-644 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-645 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-646 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-647 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-648 Update from CVS * 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 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-652 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-59 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-60 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-61 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-62 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-63 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-263
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 530bf060af4..65cb584410e 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;
@@ -864,7 +864,7 @@ x_handle_selection_request (event)
864 /* Let random lisp code notice that the selection has been asked for. */ 864 /* Let random lisp code notice that the selection has been asked for. */
865 { 865 {
866 Lisp_Object rest; 866 Lisp_Object rest;
867 rest = Vx_sent_selection_hooks; 867 rest = Vx_sent_selection_functions;
868 if (!EQ (rest, Qunbound)) 868 if (!EQ (rest, Qunbound))
869 for (; CONSP (rest); rest = Fcdr (rest)) 869 for (; CONSP (rest); rest = Fcdr (rest))
870 call3 (Fcar (rest), selection_symbol, target_symbol, successful_p); 870 call3 (Fcar (rest), selection_symbol, target_symbol, successful_p);
@@ -947,7 +947,7 @@ x_handle_selection_clear (event)
947 947
948 { 948 {
949 Lisp_Object rest; 949 Lisp_Object rest;
950 rest = Vx_lost_selection_hooks; 950 rest = Vx_lost_selection_functions;
951 if (!EQ (rest, Qunbound)) 951 if (!EQ (rest, Qunbound))
952 { 952 {
953 for (; CONSP (rest); rest = Fcdr (rest)) 953 for (; CONSP (rest); rest = Fcdr (rest))
@@ -980,7 +980,7 @@ x_clear_frame_selections (f)
980 /* Let random Lisp code notice that the selection has been stolen. */ 980 /* Let random Lisp code notice that the selection has been stolen. */
981 Lisp_Object hooks, selection_symbol; 981 Lisp_Object hooks, selection_symbol;
982 982
983 hooks = Vx_lost_selection_hooks; 983 hooks = Vx_lost_selection_functions;
984 selection_symbol = Fcar (Fcar (Vselection_alist)); 984 selection_symbol = Fcar (Fcar (Vselection_alist));
985 985
986 if (!EQ (hooks, Qunbound)) 986 if (!EQ (hooks, Qunbound))
@@ -1004,7 +1004,7 @@ x_clear_frame_selections (f)
1004 /* Let random Lisp code notice that the selection has been stolen. */ 1004 /* Let random Lisp code notice that the selection has been stolen. */
1005 Lisp_Object hooks, selection_symbol; 1005 Lisp_Object hooks, selection_symbol;
1006 1006
1007 hooks = Vx_lost_selection_hooks; 1007 hooks = Vx_lost_selection_functions;
1008 selection_symbol = Fcar (Fcar (XCDR (rest))); 1008 selection_symbol = Fcar (Fcar (XCDR (rest)));
1009 1009
1010 if (!EQ (hooks, Qunbound)) 1010 if (!EQ (hooks, Qunbound))
@@ -2731,15 +2731,15 @@ means that a side-effect was executed,
2731and there is no meaningful selection value. */); 2731and there is no meaningful selection value. */);
2732 Vselection_converter_alist = Qnil; 2732 Vselection_converter_alist = Qnil;
2733 2733
2734 DEFVAR_LISP ("x-lost-selection-hooks", &Vx_lost_selection_hooks, 2734 DEFVAR_LISP ("x-lost-selection-functions", &Vx_lost_selection_functions,
2735 doc: /* A list of functions to be called when Emacs loses an X selection. 2735 doc: /* A list of functions to be called when Emacs loses an X selection.
2736\(This happens when some other X client makes its own selection 2736\(This happens when some other X client makes its own selection
2737or when a Lisp program explicitly clears the selection.) 2737or when a Lisp program explicitly clears the selection.)
2738The functions are called with one argument, the selection type 2738The functions are called with one argument, the selection type
2739\(a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'). */); 2739\(a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'). */);
2740 Vx_lost_selection_hooks = Qnil; 2740 Vx_lost_selection_functions = Qnil;
2741 2741
2742 DEFVAR_LISP ("x-sent-selection-hooks", &Vx_sent_selection_hooks, 2742 DEFVAR_LISP ("x-sent-selection-functions", &Vx_sent_selection_functions,
2743 doc: /* A list of functions to be called when Emacs answers a selection request. 2743 doc: /* A list of functions to be called when Emacs answers a selection request.
2744The functions are called with four arguments: 2744The functions are called with four arguments:
2745 - the selection name (typically `PRIMARY', `SECONDARY', or `CLIPBOARD'); 2745 - the selection name (typically `PRIMARY', `SECONDARY', or `CLIPBOARD');
@@ -2751,7 +2751,7 @@ including being asked for a selection that we no longer own, or being asked
2751to convert into a type that we don't know about or that is inappropriate. 2751to convert into a type that we don't know about or that is inappropriate.
2752This hook doesn't let you change the behavior of Emacs's selection replies, 2752This hook doesn't let you change the behavior of Emacs's selection replies,
2753it merely informs you that they have happened. */); 2753it merely informs you that they have happened. */);
2754 Vx_sent_selection_hooks = Qnil; 2754 Vx_sent_selection_functions = Qnil;
2755 2755
2756 DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system, 2756 DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system,
2757 doc: /* Coding system for communicating with other X clients. 2757 doc: /* Coding system for communicating with other X clients.