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. |
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 |
|
|
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; |