[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/xselect.c
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/src/xselect.c |
Date: |
Thu, 28 Oct 2004 19:34:05 -0400 |
Index: emacs/src/xselect.c
diff -c emacs/src/xselect.c:1.139 emacs/src/xselect.c:1.140
*** emacs/src/xselect.c:1.139 Fri Sep 10 18:56:29 2004
--- emacs/src/xselect.c Thu Oct 28 23:28:20 2004
***************
*** 108,115 ****
QCUT_BUFFER4, QCUT_BUFFER5, QCUT_BUFFER6, QCUT_BUFFER7;
#endif
! static Lisp_Object Vx_lost_selection_hooks;
! static Lisp_Object Vx_sent_selection_hooks;
/* Coding system for communicating with other X clients via cutbuffer,
selection, and clipboard. */
static Lisp_Object Vselection_coding_system;
--- 108,115 ----
QCUT_BUFFER4, QCUT_BUFFER5, QCUT_BUFFER6, QCUT_BUFFER7;
#endif
! static Lisp_Object Vx_lost_selection_functions;
! static Lisp_Object Vx_sent_selection_functions;
/* Coding system for communicating with other X clients via cutbuffer,
selection, and clipboard. */
static Lisp_Object Vselection_coding_system;
***************
*** 856,862 ****
/* Let random lisp code notice that the selection has been asked for. */
{
Lisp_Object rest;
! rest = Vx_sent_selection_hooks;
if (!EQ (rest, Qunbound))
for (; CONSP (rest); rest = Fcdr (rest))
call3 (Fcar (rest), selection_symbol, target_symbol, successful_p);
--- 856,862 ----
/* Let random lisp code notice that the selection has been asked for. */
{
Lisp_Object rest;
! rest = Vx_sent_selection_functions;
if (!EQ (rest, Qunbound))
for (; CONSP (rest); rest = Fcdr (rest))
call3 (Fcar (rest), selection_symbol, target_symbol, successful_p);
***************
*** 939,945 ****
{
Lisp_Object rest;
! rest = Vx_lost_selection_hooks;
if (!EQ (rest, Qunbound))
{
for (; CONSP (rest); rest = Fcdr (rest))
--- 939,945 ----
{
Lisp_Object rest;
! rest = Vx_lost_selection_functions;
if (!EQ (rest, Qunbound))
{
for (; CONSP (rest); rest = Fcdr (rest))
***************
*** 972,978 ****
/* Let random Lisp code notice that the selection has been stolen. */
Lisp_Object hooks, selection_symbol;
! hooks = Vx_lost_selection_hooks;
selection_symbol = Fcar (Fcar (Vselection_alist));
if (!EQ (hooks, Qunbound))
--- 972,978 ----
/* Let random Lisp code notice that the selection has been stolen. */
Lisp_Object hooks, selection_symbol;
! hooks = Vx_lost_selection_functions;
selection_symbol = Fcar (Fcar (Vselection_alist));
if (!EQ (hooks, Qunbound))
***************
*** 996,1002 ****
/* Let random Lisp code notice that the selection has been stolen. */
Lisp_Object hooks, selection_symbol;
! hooks = Vx_lost_selection_hooks;
selection_symbol = Fcar (Fcar (XCDR (rest)));
if (!EQ (hooks, Qunbound))
--- 996,1002 ----
/* Let random Lisp code notice that the selection has been stolen. */
Lisp_Object hooks, selection_symbol;
! hooks = Vx_lost_selection_functions;
selection_symbol = Fcar (Fcar (XCDR (rest)));
if (!EQ (hooks, Qunbound))
***************
*** 2699,2713 ****
and there is no meaningful selection value. */);
Vselection_converter_alist = Qnil;
! DEFVAR_LISP ("x-lost-selection-hooks", &Vx_lost_selection_hooks,
doc: /* A list of functions to be called when Emacs loses an X
selection.
\(This happens when some other X client makes its own selection
or when a Lisp program explicitly clears the selection.)
The functions are called with one argument, the selection type
\(a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'). */);
! Vx_lost_selection_hooks = Qnil;
! DEFVAR_LISP ("x-sent-selection-hooks", &Vx_sent_selection_hooks,
doc: /* A list of functions to be called when Emacs answers a
selection request.
The functions are called with four arguments:
- the selection name (typically `PRIMARY', `SECONDARY', or `CLIPBOARD');
--- 2699,2713 ----
and there is no meaningful selection value. */);
Vselection_converter_alist = Qnil;
! DEFVAR_LISP ("x-lost-selection-functions", &Vx_lost_selection_functions,
doc: /* A list of functions to be called when Emacs loses an X
selection.
\(This happens when some other X client makes its own selection
or when a Lisp program explicitly clears the selection.)
The functions are called with one argument, the selection type
\(a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'). */);
! Vx_lost_selection_functions = Qnil;
! DEFVAR_LISP ("x-sent-selection-functions", &Vx_sent_selection_functions,
doc: /* A list of functions to be called when Emacs answers a
selection request.
The functions are called with four arguments:
- the selection name (typically `PRIMARY', `SECONDARY', or `CLIPBOARD');
***************
*** 2719,2725 ****
to convert into a type that we don't know about or that is inappropriate.
This hook doesn't let you change the behavior of Emacs's selection replies,
it merely informs you that they have happened. */);
! Vx_sent_selection_hooks = Qnil;
DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system,
doc: /* Coding system for communicating with other X clients.
--- 2719,2725 ----
to convert into a type that we don't know about or that is inappropriate.
This hook doesn't let you change the behavior of Emacs's selection replies,
it merely informs you that they have happened. */);
! Vx_sent_selection_functions = Qnil;
DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system,
doc: /* Coding system for communicating with other X clients.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/src/xselect.c,
Stefan Monnier <=