diff options
Diffstat (limited to 'src/keyboard.c')
| -rw-r--r-- | src/keyboard.c | 32 |
1 files changed, 12 insertions, 20 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index 59acb2dd083..baf2f514409 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -6448,12 +6448,7 @@ modify_event_symbol (ptrdiff_t symbol_num, int modifiers, Lisp_Object symbol_kin | |||
| 6448 | { | 6448 | { |
| 6449 | if (! VECTORP (*symbol_table) | 6449 | if (! VECTORP (*symbol_table) |
| 6450 | || ASIZE (*symbol_table) != table_size) | 6450 | || ASIZE (*symbol_table) != table_size) |
| 6451 | { | 6451 | *symbol_table = make_nil_vector (table_size); |
| 6452 | Lisp_Object size; | ||
| 6453 | |||
| 6454 | XSETFASTINT (size, table_size); | ||
| 6455 | *symbol_table = Fmake_vector (size, Qnil); | ||
| 6456 | } | ||
| 6457 | 6452 | ||
| 6458 | value = AREF (*symbol_table, symbol_num); | 6453 | value = AREF (*symbol_table, symbol_num); |
| 6459 | } | 6454 | } |
| @@ -7362,7 +7357,7 @@ menu_bar_items (Lisp_Object old) | |||
| 7362 | if (!NILP (old)) | 7357 | if (!NILP (old)) |
| 7363 | menu_bar_items_vector = old; | 7358 | menu_bar_items_vector = old; |
| 7364 | else | 7359 | else |
| 7365 | menu_bar_items_vector = Fmake_vector (make_fixnum (24), Qnil); | 7360 | menu_bar_items_vector = make_nil_vector (24); |
| 7366 | menu_bar_items_index = 0; | 7361 | menu_bar_items_index = 0; |
| 7367 | 7362 | ||
| 7368 | /* Build our list of keymaps. | 7363 | /* Build our list of keymaps. |
| @@ -7605,8 +7600,7 @@ parse_menu_item (Lisp_Object item, int inmenubar) | |||
| 7605 | 7600 | ||
| 7606 | /* Create item_properties vector if necessary. */ | 7601 | /* Create item_properties vector if necessary. */ |
| 7607 | if (NILP (item_properties)) | 7602 | if (NILP (item_properties)) |
| 7608 | item_properties | 7603 | item_properties = make_nil_vector (ITEM_PROPERTY_ENABLE + 1); |
| 7609 | = Fmake_vector (make_fixnum (ITEM_PROPERTY_ENABLE + 1), Qnil); | ||
| 7610 | 7604 | ||
| 7611 | /* Initialize optional entries. */ | 7605 | /* Initialize optional entries. */ |
| 7612 | for (i = ITEM_PROPERTY_DEF; i < ITEM_PROPERTY_ENABLE; i++) | 7606 | for (i = ITEM_PROPERTY_DEF; i < ITEM_PROPERTY_ENABLE; i++) |
| @@ -8100,8 +8094,7 @@ parse_tool_bar_item (Lisp_Object key, Lisp_Object item) | |||
| 8100 | set_prop (i, Qnil); | 8094 | set_prop (i, Qnil); |
| 8101 | } | 8095 | } |
| 8102 | else | 8096 | else |
| 8103 | tool_bar_item_properties | 8097 | tool_bar_item_properties = make_nil_vector (TOOL_BAR_ITEM_NSLOTS); |
| 8104 | = Fmake_vector (make_fixnum (TOOL_BAR_ITEM_NSLOTS), Qnil); | ||
| 8105 | 8098 | ||
| 8106 | /* Set defaults. */ | 8099 | /* Set defaults. */ |
| 8107 | set_prop (TOOL_BAR_ITEM_KEY, key); | 8100 | set_prop (TOOL_BAR_ITEM_KEY, key); |
| @@ -8296,7 +8289,7 @@ init_tool_bar_items (Lisp_Object reuse) | |||
| 8296 | if (VECTORP (reuse)) | 8289 | if (VECTORP (reuse)) |
| 8297 | tool_bar_items_vector = reuse; | 8290 | tool_bar_items_vector = reuse; |
| 8298 | else | 8291 | else |
| 8299 | tool_bar_items_vector = Fmake_vector (make_fixnum (64), Qnil); | 8292 | tool_bar_items_vector = make_nil_vector (64); |
| 8300 | ntool_bar_items = 0; | 8293 | ntool_bar_items = 0; |
| 8301 | } | 8294 | } |
| 8302 | 8295 | ||
| @@ -11184,32 +11177,31 @@ syms_of_keyboard (void) | |||
| 11184 | } | 11177 | } |
| 11185 | } | 11178 | } |
| 11186 | 11179 | ||
| 11187 | button_down_location = Fmake_vector (make_fixnum (5), Qnil); | 11180 | button_down_location = make_nil_vector (5); |
| 11188 | staticpro (&button_down_location); | 11181 | staticpro (&button_down_location); |
| 11189 | mouse_syms = Fmake_vector (make_fixnum (5), Qnil); | 11182 | mouse_syms = make_nil_vector (5); |
| 11190 | staticpro (&mouse_syms); | 11183 | staticpro (&mouse_syms); |
| 11191 | wheel_syms = Fmake_vector (make_fixnum (ARRAYELTS (lispy_wheel_names)), | 11184 | wheel_syms = make_nil_vector (ARRAYELTS (lispy_wheel_names)); |
| 11192 | Qnil); | ||
| 11193 | staticpro (&wheel_syms); | 11185 | staticpro (&wheel_syms); |
| 11194 | 11186 | ||
| 11195 | { | 11187 | { |
| 11196 | int i; | 11188 | int i; |
| 11197 | int len = ARRAYELTS (modifier_names); | 11189 | int len = ARRAYELTS (modifier_names); |
| 11198 | 11190 | ||
| 11199 | modifier_symbols = Fmake_vector (make_fixnum (len), Qnil); | 11191 | modifier_symbols = make_nil_vector (len); |
| 11200 | for (i = 0; i < len; i++) | 11192 | for (i = 0; i < len; i++) |
| 11201 | if (modifier_names[i]) | 11193 | if (modifier_names[i]) |
| 11202 | ASET (modifier_symbols, i, intern_c_string (modifier_names[i])); | 11194 | ASET (modifier_symbols, i, intern_c_string (modifier_names[i])); |
| 11203 | staticpro (&modifier_symbols); | 11195 | staticpro (&modifier_symbols); |
| 11204 | } | 11196 | } |
| 11205 | 11197 | ||
| 11206 | recent_keys = Fmake_vector (make_fixnum (NUM_RECENT_KEYS), Qnil); | 11198 | recent_keys = make_nil_vector (NUM_RECENT_KEYS); |
| 11207 | staticpro (&recent_keys); | 11199 | staticpro (&recent_keys); |
| 11208 | 11200 | ||
| 11209 | this_command_keys = Fmake_vector (make_fixnum (40), Qnil); | 11201 | this_command_keys = make_nil_vector (40); |
| 11210 | staticpro (&this_command_keys); | 11202 | staticpro (&this_command_keys); |
| 11211 | 11203 | ||
| 11212 | raw_keybuf = Fmake_vector (make_fixnum (30), Qnil); | 11204 | raw_keybuf = make_nil_vector (30); |
| 11213 | staticpro (&raw_keybuf); | 11205 | staticpro (&raw_keybuf); |
| 11214 | 11206 | ||
| 11215 | DEFSYM (Qcommand_execute, "command-execute"); | 11207 | DEFSYM (Qcommand_execute, "command-execute"); |