/[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.126 by rms, Mon Jan 6 00:54:22 2003 UTC revision 1.127 by schwab, Wed Mar 12 23:48:40 2003 UTC
# Line 1  Line 1 
1  /* X Selection processing for Emacs.  /* X Selection processing for Emacs.
2     Copyright (C) 1993, 1994, 1995, 1996, 1997, 2000, 2001     Copyright (C) 1993, 1994, 1995, 1996, 1997, 2000, 2001, 2003
3     Free Software Foundation.     Free Software Foundation.
4    
5  This file is part of GNU Emacs.  This file is part of GNU Emacs.
# Line 1695  selection_data_to_lisp_data (display, da Line 1695  selection_data_to_lisp_data (display, da
1695       If the number is > 16 bits, convert it to a cons of integers,       If the number is > 16 bits, convert it to a cons of integers,
1696       16 bits in each half.       16 bits in each half.
1697     */     */
1698    else if (format == 32 && size == sizeof (long))    else if (format == 32 && size == sizeof (int))
1699      return long_to_cons (((unsigned long *) data) [0]);      return long_to_cons (((unsigned int *) data) [0]);
1700    else if (format == 16 && size == sizeof (short))    else if (format == 16 && size == sizeof (short))
1701      return make_number ((int) (((unsigned short *) data) [0]));      return make_number ((int) (((unsigned short *) data) [0]));
1702    
# Line 1721  selection_data_to_lisp_data (display, da Line 1721  selection_data_to_lisp_data (display, da
1721        Lisp_Object v = Fmake_vector (make_number (size / 4), make_number (0));        Lisp_Object v = Fmake_vector (make_number (size / 4), make_number (0));
1722        for (i = 0; i < size / 4; i++)        for (i = 0; i < size / 4; i++)
1723          {          {
1724            unsigned long j = ((unsigned long *) data) [i];            unsigned int j = ((unsigned int *) data) [i];
1725            Faset (v, make_number (i), long_to_cons (j));            Faset (v, make_number (i), long_to_cons (j));
1726          }          }
1727        return v;        return v;

Legend:
Removed from v.1.126  
changed lines
  Added in v.1.127

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