Mercurial > emacs

diff src/xselect.c @ 53966:26dc8943ee64

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Lisp_Object/int mixup.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 16 Feb 2004 04:53:28 +0000
parents 609de9ab5f75
children 5407da499273 03a73693678e
line wrap: on
line diff
--- a/src/xselect.c	Mon Feb 16 03:18:25 2004 +0000
+++ b/src/xselect.c	Mon Feb 16 04:53:28 2004 +0000
@@ -2503,11 +2503,11 @@
 
   XSETFRAME (frame, f);
 
-  vec = Fmake_vector (4, Qnil);
+  vec = Fmake_vector (make_number (4), Qnil);
   AREF (vec, 0) = SYMBOL_NAME (x_atom_to_symbol (FRAME_X_DISPLAY (f),
                                                  event->message_type));
   AREF (vec, 1) = frame;
-  AREF (vec, 2) = XFASTINT (event->format);
+  AREF (vec, 2) = make_number (event->format);
   AREF (vec, 3) = x_property_data_to_lisp (f,
                                            event->data.b,
                                            event->message_type,