From 937a3875a463fc19cebdbd949f307b1412c4e011 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 24 Jul 1997 21:29:24 +0000 Subject: [PATCH] (selection_data_to_lisp_data): Make the vector the right size, when format is 16. --- src/xselect.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/xselect.c b/src/xselect.c index 5ac5f773614..b6168a024a7 100644 --- a/src/xselect.c +++ b/src/xselect.c @@ -1537,8 +1537,9 @@ selection_data_to_lisp_data (display, data, size, type, format) 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)); -- 2.39.5