diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-07-24 21:29:24 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-07-24 21:29:24 +0000 |
commit | eb6165ba606db8f3461eb9101f1900daabfe3d99 (patch) | |
tree | bdb537513038929051634d0b328f425cc019be70 /src/xselect.c | |
parent | b6baed537d580c4f73183136414f733089461b9d (diff) | |
download | emacs-eb6165ba606db8f3461eb9101f1900daabfe3d99.tar.gz |
(selection_data_to_lisp_data):
Make the vector the right size, when format is 16.
Diffstat (limited to 'src/xselect.c')
-rw-r--r-- | src/xselect.c | 5 |
1 files 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)); |