Mercurial > emacs
changeset 18952:4e695c86585c
(selection_data_to_lisp_data):
Make the vector the right size, when format is 16.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 24 Jul 1997 21:29:24 +0000 |
| parents | a1041ace6786 |
| children | 47924b18d95c |
| files | src/xselect.c |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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));