Mercurial > emacs

comparison src/xselect.c @ 78401:627812b69d17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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]));