[Emacs-diffs] Changes to emacs/src/xselect.c [lexbind]

[Miles Bader]

Index: emacs/src/xselect.c
diff -c emacs/src/xselect.c:1.119.2.8 emacs/src/xselect.c:1.119.2.9
*** emacs/src/xselect.c:1.119.2.8       Thu Sep 16 00:15:01 2004
--- emacs/src/xselect.c Fri Oct 29 02:05:11 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.