# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1047512920 0
# Node ID b8c1a5c8f9c0d0b450a6118a36e70c96a5ba47dd
# Parent  d23ab2416c49db1655367b30ff6c2cf7662e44f7
(selection_data_to_lisp_data): Use int instead of
long for an integer of size 4.

diff -r d23ab2416c49 -r b8c1a5c8f9c0 src/xselect.c
--- 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;