diff options
Diffstat (limited to 'src/chartab.c')
| -rw-r--r-- | src/chartab.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/chartab.c b/src/chartab.c index d25169b7a5e..4e4219d8ae3 100644 --- a/src/chartab.c +++ b/src/chartab.c @@ -1249,7 +1249,6 @@ uniprop_encode_value_run_length (Lisp_Object table, Lisp_Object value) static Lisp_Object uniprop_encode_value_numeric (Lisp_Object table, Lisp_Object value) { - USE_LOCAL_ALLOCA; Lisp_Object *value_table = XVECTOR (XCHAR_TABLE (table)->extras[4])->contents; int i, size = ASIZE (XCHAR_TABLE (table)->extras[4]); @@ -1260,7 +1259,7 @@ uniprop_encode_value_numeric (Lisp_Object table, Lisp_Object value) value = make_number (i); if (i == size) set_char_table_extras (table, 4, Fvconcat (2, ((Lisp_Object []) { - XCHAR_TABLE (table)->extras[4], make_local_vector (1, value) }))); + XCHAR_TABLE (table)->extras[4], Fmake_vector (make_number (1), value) }))); return make_number (i); } @@ -1293,7 +1292,6 @@ uniprop_get_encoder (Lisp_Object table) Lisp_Object uniprop_table (Lisp_Object prop) { - USE_LOCAL_ALLOCA; Lisp_Object val, table, result; val = Fassq (prop, Vchar_code_property_alist); |