diff options
| author | Dmitry Antipov <dmantipov@yandex.ru> | 2013-02-08 09:28:52 +0400 |
|---|---|---|
| committer | Dmitry Antipov <dmantipov@yandex.ru> | 2013-02-08 09:28:52 +0400 |
| commit | 25721f5bb5681c22f666a0b4e61d94687d92a671 (patch) | |
| tree | 2ea496a25332f603727cc978192bc415c885c02a /src/xselect.c | |
| parent | 9a9d91d9c247adefa7137338d7609d81734f888d (diff) | |
| download | emacs-25721f5bb5681c22f666a0b4e61d94687d92a671.tar.gz | |
* lisp.h (make_uninit_vector): New function.
* alloc.c (Fvector, Fmake_byte_code):
* ccl.c (Fregister_ccl_program):
* charset.c (Fdefine_charset_internal, define_charset_internal):
* coding.c (make_subsidiaries, Fdefine_coding_system_internal):
* composite.c (syms_of_composite):
* font.c (Fquery_font, Ffont_info, syms_of_font):
* fontset.c (FONT_DEF_NEW, Fset_fontset_font):
* ftfont.c (ftfont_shape_by_flt):
* indent.c (recompute_width_table):
* nsselect.m (clean_local_selection_data):
* syntax.c (init_syntax_once):
* w32unsubscribe.c (uniscribe_shape):
* window.c (Fcurrent_window_configuration):
* xfaces.c (Fx_family_fonts):
* xselect.c (selection_data_to_lisp_data): Use it.
Diffstat (limited to 'src/xselect.c')
| -rw-r--r-- | src/xselect.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/xselect.c b/src/xselect.c index d769f86cdef..decea696bfd 100644 --- a/src/xselect.c +++ b/src/xselect.c @@ -1670,8 +1670,8 @@ selection_data_to_lisp_data (Display *display, const unsigned char *data, return x_atom_to_symbol (display, (Atom) idata[0]); else { - Lisp_Object v = Fmake_vector (make_number (size / sizeof (int)), - make_number (0)); + Lisp_Object v = make_uninit_vector (size / sizeof (int)); + for (i = 0; i < size / sizeof (int); i++) ASET (v, i, x_atom_to_symbol (display, (Atom) idata[i])); return v; @@ -1693,8 +1693,8 @@ selection_data_to_lisp_data (Display *display, const unsigned char *data, else if (format == 16) { ptrdiff_t i; - Lisp_Object v; - v = Fmake_vector (make_number (size / 2), make_number (0)); + Lisp_Object v = make_uninit_vector (size / 2); + for (i = 0; i < size / 2; i++) { short j = ((short *) data) [i]; @@ -1705,8 +1705,8 @@ selection_data_to_lisp_data (Display *display, const unsigned char *data, else { ptrdiff_t i; - Lisp_Object v = Fmake_vector (make_number (size / X_LONG_SIZE), - make_number (0)); + Lisp_Object v = make_uninit_vector (size / X_LONG_SIZE); + for (i = 0; i < size / X_LONG_SIZE; i++) { int j = ((int *) data) [i]; |