6091 |
entry = Fcons (index, new_symbol); |
entry = Fcons (index, new_symbol); |
6092 |
Fput (base, Qmodifier_cache, Fcons (entry, cache)); |
Fput (base, Qmodifier_cache, Fcons (entry, cache)); |
6093 |
|
|
6094 |
/* We have the parsing info now for free, so add it to the caches. */ |
/* We have the parsing info now for free, so we could add it to |
6095 |
XSETFASTINT (index, modifiers); |
the caches: |
6096 |
Fput (new_symbol, Qevent_symbol_element_mask, |
XSETFASTINT (index, modifiers); |
6097 |
Fcons (base, Fcons (index, Qnil))); |
Fput (new_symbol, Qevent_symbol_element_mask, |
6098 |
Fput (new_symbol, Qevent_symbol_elements, |
Fcons (base, Fcons (index, Qnil))); |
6099 |
Fcons (base, lispy_modifier_list (modifiers))); |
Fput (new_symbol, Qevent_symbol_elements, |
6100 |
|
Fcons (base, lispy_modifier_list (modifiers))); |
6101 |
|
Sadly, this is only correct if `base' is indeed a base event, |
6102 |
|
which is not necessarily the case. -stef */ |
6103 |
} |
} |
6104 |
|
|
6105 |
/* Make sure this symbol is of the same kind as BASE. |
/* Make sure this symbol is of the same kind as BASE. |