[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/xselect.c [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/src/xselect.c [emacs-unicode-2] |
Date: |
Thu, 04 Nov 2004 04:09:50 -0500 |
Index: emacs/src/xselect.c
diff -c emacs/src/xselect.c:1.129.2.4 emacs/src/xselect.c:1.129.2.5
*** emacs/src/xselect.c:1.129.2.4 Wed Sep 15 09:00:10 2004
--- emacs/src/xselect.c Thu Nov 4 08:55:33 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.
- [Emacs-diffs] Changes to emacs/src/xselect.c [emacs-unicode-2],
Miles Bader <=