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

[Jan Djärv]

Index: emacs/src/xselect.c
diff -c emacs/src/xselect.c:1.144 emacs/src/xselect.c:1.145
*** emacs/src/xselect.c:1.144   Wed Dec 22 06:32:30 2004
--- emacs/src/xselect.c Fri Jan  7 16:59:57 2005
***************
*** 1383,1389 ****
        else if (INTEGERP (time_stamp))
          requestor_time = (Time) XUINT (time_stamp);
        else if (FLOATP (time_stamp))
!         requestor_time = (Time) XFLOAT (time_stamp);
        else
          error ("TIME_STAMP must be cons or number");
      }
--- 1383,1389 ----
        else if (INTEGERP (time_stamp))
          requestor_time = (Time) XUINT (time_stamp);
        else if (FLOATP (time_stamp))
!         requestor_time = (Time) XFLOAT_DATA (time_stamp);
        else
          error ("TIME_STAMP must be cons or number");
      }
***************
*** 2468,2474 ****
     DPY is the display use to look up X atoms.
     DATA is a Lisp list of values to be converted.
     RET is the C array that contains the converted values.  It is assumed
!    it is big enough to hol all values.
     FORMAT is 8, 16 or 32 and gives the size in bits for each C value to
     be stored in RET.  */
  
--- 2468,2474 ----
     DPY is the display use to look up X atoms.
     DATA is a Lisp list of values to be converted.
     RET is the C array that contains the converted values.  It is assumed
!    it is big enough to hold all values.
     FORMAT is 8, 16 or 32 and gives the size in bits for each C value to
     be stored in RET.  */
  
***************
*** 2492,2498 ****
        if (INTEGERP (o))
          val = (CARD32) XFASTINT (o);
        else if (FLOATP (o))
!         val = (CARD32) XFLOAT (o);
        else if (CONSP (o))
          val = (CARD32) cons_to_long (o);
        else if (STRINGP (o))
--- 2492,2498 ----
        if (INTEGERP (o))
          val = (CARD32) XFASTINT (o);
        else if (FLOATP (o))
!         val = (CARD32) XFLOAT_DATA (o);
        else if (CONSP (o))
          val = (CARD32) cons_to_long (o);
        else if (STRINGP (o))
***************
*** 2597,2603 ****
    if (INTEGERP (value))
      atom = (Atom) XUINT (value);
    else if (FLOATP (value))
!     atom = (Atom) XFLOAT (value);
    else if (CONSP (value))
      atom = (Atom) cons_to_long (value);
    else
--- 2597,2603 ----
    if (INTEGERP (value))
      atom = (Atom) XUINT (value);
    else if (FLOATP (value))
!     atom = (Atom) XFLOAT_DATA (value);
    else if (CONSP (value))
      atom = (Atom) cons_to_long (value);
    else
***************
*** 2729,2735 ****
    else if (INTEGERP (dest))
      wdest = (Window) XFASTINT (dest);
    else if (FLOATP (dest))
!     wdest =  (Window) XFLOAT (dest);
    else if (CONSP (dest))
      {
        if (! NUMBERP (XCAR (dest)) || ! NUMBERP (XCDR (dest)))
--- 2729,2735 ----
    else if (INTEGERP (dest))
      wdest = (Window) XFASTINT (dest);
    else if (FLOATP (dest))
!     wdest =  (Window) XFLOAT_DATA (dest);
    else if (CONSP (dest))
      {
        if (! NUMBERP (XCAR (dest)) || ! NUMBERP (XCDR (dest)))