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

[Jan Djärv]

Index: emacs/src/xselect.c
diff -c emacs/src/xselect.c:1.140 emacs/src/xselect.c:1.141
*** emacs/src/xselect.c:1.140   Thu Oct 28 23:28:20 2004
--- emacs/src/xselect.c Fri Nov  5 07:05:13 2004
***************
*** 85,94 ****
--- 85,97 ----
    fprintf (stderr, "%d: " fmt "\n", getpid (), a0)
  #define TRACE2(fmt, a0, a1) \
    fprintf (stderr, "%d: " fmt "\n", getpid (), a0, a1)
+ #define TRACE3(fmt, a0, a1, a2) \
+   fprintf (stderr, "%d: " fmt "\n", getpid (), a0, a1, a2)
  #else
  #define TRACE0(fmt)           (void) 0
  #define TRACE1(fmt, a0)               (void) 0
  #define TRACE2(fmt, a0, a1)   (void) 0
+ #define TRACE3(fmt, a0, a1)   (void) 0
  #endif
  
  
***************
*** 623,628 ****
--- 626,642 ----
    BLOCK_INPUT;
    count = x_catch_errors (display);
  
+ #ifdef TRACE_SELECTION
+   {
+     static int cnt;
+     char *sel = XGetAtomName (display, reply.selection);
+     char *tgt = XGetAtomName (display, reply.target);
+     TRACE3 ("%s, target %s (%d)", sel, tgt, ++cnt);
+     if (sel) XFree (sel);
+     if (tgt) XFree (tgt);
+   }
+ #endif /* TRACE_SELECTION */
+ 
    /* Store the data on the requested property.
       If the selection is large, only store the first N bytes of it.
     */
***************
*** 1445,1454 ****
    BLOCK_INPUT;
    XSelectInput (display, window, STANDARD_EVENT_SET | PropertyChangeMask);
    TRACE1 ("  Delete property %s",
!         XSYMBOL (x_atom_to_symbol (display, property))->name->data);
    XDeleteProperty (display, window, property);
    TRACE1 ("  Expect new value of property %s",
!         XSYMBOL (x_atom_to_symbol (display, property))->name->data);
    wait_object = expect_property_change (display, window, property,
                                        PropertyNewValue);
    XFlush (display);
--- 1459,1468 ----
    BLOCK_INPUT;
    XSelectInput (display, window, STANDARD_EVENT_SET | PropertyChangeMask);
    TRACE1 ("  Delete property %s",
!         SDATA (XSYMBOL (x_atom_to_symbol (display, property))->xname));
    XDeleteProperty (display, window, property);
    TRACE1 ("  Expect new value of property %s",
!         SDATA (XSYMBOL (x_atom_to_symbol (display, property))->xname));
    wait_object = expect_property_change (display, window, property,
                                        PropertyNewValue);
    XFlush (display);