Mercurial > emacs
comparison src/xselect.c @ 78401:627812b69d17
Comment change.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 03 Aug 2007 03:38:24 +0000 |
parents | 922696f363b0 |
children | 4c7b6a25a97b b8c796068320 |
comparison
equal
deleted
inserted
replaced
78400:b399a27d1b5c | 78401:627812b69d17 |
---|---|
1852 x_atom_to_symbol (display, (Atom) idata[i])); | 1852 x_atom_to_symbol (display, (Atom) idata[i])); |
1853 return v; | 1853 return v; |
1854 } | 1854 } |
1855 } | 1855 } |
1856 | 1856 |
1857 /* Convert a single 16 or small 32 bit number to a Lisp_Int. | 1857 /* Convert a single 16-bit number or a small 32-bit number to a Lisp_Int. |
1858 If the number is > 16 bits, convert it to a cons of integers, | 1858 If the number is 32 bits and won't fit in a Lisp_Int, |
1859 16 bits in each half. | 1859 convert it to a cons of integers, 16 bits in each half. |
1860 */ | 1860 */ |
1861 else if (format == 32 && size == sizeof (int)) | 1861 else if (format == 32 && size == sizeof (int)) |
1862 return long_to_cons (((unsigned int *) data) [0]); | 1862 return long_to_cons (((unsigned int *) data) [0]); |
1863 else if (format == 16 && size == sizeof (short)) | 1863 else if (format == 16 && size == sizeof (short)) |
1864 return make_number ((int) (((unsigned short *) data) [0])); | 1864 return make_number ((int) (((unsigned short *) data) [0])); |