Mercurial > emacs
changeset 50110:b8c1a5c8f9c0
(selection_data_to_lisp_data): Use int instead of
long for an integer of size 4.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Wed, 12 Mar 2003 23:48:40 +0000 |
| parents | d23ab2416c49 |
| children | 278842e99a00 |
| files | src/xselect.c |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/xselect.c Wed Mar 12 23:46:41 2003 +0000 +++ b/src/xselect.c Wed Mar 12 23:48:40 2003 +0000 @@ -1,5 +1,5 @@ /* X Selection processing for Emacs. - Copyright (C) 1993, 1994, 1995, 1996, 1997, 2000, 2001 + Copyright (C) 1993, 1994, 1995, 1996, 1997, 2000, 2001, 2003 Free Software Foundation. This file is part of GNU Emacs. @@ -1695,8 +1695,8 @@ If the number is > 16 bits, convert it to a cons of integers, 16 bits in each half. */ - else if (format == 32 && size == sizeof (long)) - return long_to_cons (((unsigned long *) data) [0]); + else if (format == 32 && size == sizeof (int)) + return long_to_cons (((unsigned int *) data) [0]); else if (format == 16 && size == sizeof (short)) return make_number ((int) (((unsigned short *) data) [0])); @@ -1721,7 +1721,7 @@ Lisp_Object v = Fmake_vector (make_number (size / 4), make_number (0)); for (i = 0; i < size / 4; i++) { - unsigned long j = ((unsigned long *) data) [i]; + unsigned int j = ((unsigned int *) data) [i]; Faset (v, make_number (i), long_to_cons (j)); } return v;