/[emacs]/emacs/src/xselect.c
ViewVC logotype

Diff of /emacs/src/xselect.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.119.2.8 by miles, Thu Sep 16 00:15:01 2004 UTC revision 1.119.2.9 by miles, Fri Oct 29 02:05:11 2004 UTC
# Line 108  Lisp_Object QCUT_BUFFER0, QCUT_BUFFER1, Line 108  Lisp_Object QCUT_BUFFER0, QCUT_BUFFER1,
108    QCUT_BUFFER4, QCUT_BUFFER5, QCUT_BUFFER6, QCUT_BUFFER7;    QCUT_BUFFER4, QCUT_BUFFER5, QCUT_BUFFER6, QCUT_BUFFER7;
109  #endif  #endif
110    
111  static Lisp_Object Vx_lost_selection_hooks;  static Lisp_Object Vx_lost_selection_functions;
112  static Lisp_Object Vx_sent_selection_hooks;  static Lisp_Object Vx_sent_selection_functions;
113  /* Coding system for communicating with other X clients via cutbuffer,  /* Coding system for communicating with other X clients via cutbuffer,
114     selection, and clipboard.  */     selection, and clipboard.  */
115  static Lisp_Object Vselection_coding_system;  static Lisp_Object Vselection_coding_system;
# Line 856  x_handle_selection_request (event) Line 856  x_handle_selection_request (event)
856    /* Let random lisp code notice that the selection has been asked for.  */    /* Let random lisp code notice that the selection has been asked for.  */
857    {    {
858      Lisp_Object rest;      Lisp_Object rest;
859      rest = Vx_sent_selection_hooks;      rest = Vx_sent_selection_functions;
860      if (!EQ (rest, Qunbound))      if (!EQ (rest, Qunbound))
861        for (; CONSP (rest); rest = Fcdr (rest))        for (; CONSP (rest); rest = Fcdr (rest))
862          call3 (Fcar (rest), selection_symbol, target_symbol, successful_p);          call3 (Fcar (rest), selection_symbol, target_symbol, successful_p);
# Line 939  x_handle_selection_clear (event) Line 939  x_handle_selection_clear (event)
939    
940    {    {
941      Lisp_Object rest;      Lisp_Object rest;
942      rest = Vx_lost_selection_hooks;      rest = Vx_lost_selection_functions;
943      if (!EQ (rest, Qunbound))      if (!EQ (rest, Qunbound))
944        {        {
945          for (; CONSP (rest); rest = Fcdr (rest))          for (; CONSP (rest); rest = Fcdr (rest))
# Line 972  x_clear_frame_selections (f) Line 972  x_clear_frame_selections (f)
972        /* Let random Lisp code notice that the selection has been stolen.  */        /* Let random Lisp code notice that the selection has been stolen.  */
973        Lisp_Object hooks, selection_symbol;        Lisp_Object hooks, selection_symbol;
974    
975        hooks = Vx_lost_selection_hooks;        hooks = Vx_lost_selection_functions;
976        selection_symbol = Fcar (Fcar (Vselection_alist));        selection_symbol = Fcar (Fcar (Vselection_alist));
977    
978        if (!EQ (hooks, Qunbound))        if (!EQ (hooks, Qunbound))
# Line 996  x_clear_frame_selections (f) Line 996  x_clear_frame_selections (f)
996          /* Let random Lisp code notice that the selection has been stolen.  */          /* Let random Lisp code notice that the selection has been stolen.  */
997          Lisp_Object hooks, selection_symbol;          Lisp_Object hooks, selection_symbol;
998    
999          hooks = Vx_lost_selection_hooks;          hooks = Vx_lost_selection_functions;
1000          selection_symbol = Fcar (Fcar (XCDR (rest)));          selection_symbol = Fcar (Fcar (XCDR (rest)));
1001    
1002          if (!EQ (hooks, Qunbound))          if (!EQ (hooks, Qunbound))
# Line 2699  means that a side-effect was executed, Line 2699  means that a side-effect was executed,
2699  and there is no meaningful selection value.  */);  and there is no meaningful selection value.  */);
2700    Vselection_converter_alist = Qnil;    Vselection_converter_alist = Qnil;
2701    
2702    DEFVAR_LISP ("x-lost-selection-hooks", &Vx_lost_selection_hooks,    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.                 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  \(This happens when some other X client makes its own selection
2705  or when a Lisp program explicitly clears the selection.)  or when a Lisp program explicitly clears the selection.)
2706  The functions are called with one argument, the selection type  The functions are called with one argument, the selection type
2707  \(a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD').  */);  \(a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD').  */);
2708    Vx_lost_selection_hooks = Qnil;    Vx_lost_selection_functions = Qnil;
2709    
2710    DEFVAR_LISP ("x-sent-selection-hooks", &Vx_sent_selection_hooks,    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.                 doc: /* A list of functions to be called when Emacs answers a selection request.
2712  The functions are called with four arguments:  The functions are called with four arguments:
2713    - the selection name (typically `PRIMARY', `SECONDARY', or `CLIPBOARD');    - the selection name (typically `PRIMARY', `SECONDARY', or `CLIPBOARD');
# Line 2719  including being asked for a selection th Line 2719  including being asked for a selection th
2719  to convert into a type that we don't know about or that is inappropriate.  to convert into a type that we don't know about or that is inappropriate.
2720  This hook doesn't let you change the behavior of Emacs's selection replies,  This hook doesn't let you change the behavior of Emacs's selection replies,
2721  it merely informs you that they have happened.  */);  it merely informs you that they have happened.  */);
2722    Vx_sent_selection_hooks = Qnil;    Vx_sent_selection_functions = Qnil;
2723    
2724    DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system,    DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system,
2725                 doc: /* Coding system for communicating with other X clients.                 doc: /* Coding system for communicating with other X clients.

Legend:
Removed from v.1.119.2.8  
changed lines
  Added in v.1.119.2.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26