# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 869779764 0
# Node ID 4e695c86585cfd0fe69470cfacf344407d9c36bb
# Parent  a1041ace6786611159705237c63e762058fea51b
(selection_data_to_lisp_data):
Make the vector the right size, when format is 16.

diff -r a1041ace6786 -r 4e695c86585c src/xselect.c
--- a/src/xselect.c	Thu Jul 24 18:22:33 1997 +0000
+++ b/src/xselect.c	Thu Jul 24 21:29:24 1997 +0000
@@ -1537,8 +1537,9 @@
   else if (format == 16)
     {
       int i;
-      Lisp_Object v = Fmake_vector (make_number (size / 4), make_number (0));
-      for (i = 0; i < size / 4; i++)
+      Lisp_Object v;
+      v = Fmake_vector (make_number (size / 2), make_number (0));
+      for (i = 0; i < size / 2; i++)
 	{
 	  int j = (int) ((unsigned short *) data) [i];
 	  Faset (v, make_number (i), make_number (j));