Mercurial > emacs
comparison src/keyboard.c @ 51014:7dde1bfbb922
(apply_modifiers): Don't fill the other cache.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 15 May 2003 21:20:52 +0000 |
| parents | 5461f0256e86 |
| children | 52ab727d168b |
comparison
equal
deleted
inserted
replaced
| 51013:db5c6e7f697f | 51014:7dde1bfbb922 |
|---|---|
| 6089 | 6089 |
| 6090 /* Add the new symbol to the base's cache. */ | 6090 /* Add the new symbol to the base's cache. */ |
| 6091 entry = Fcons (index, new_symbol); | 6091 entry = Fcons (index, new_symbol); |
| 6092 Fput (base, Qmodifier_cache, Fcons (entry, cache)); | 6092 Fput (base, Qmodifier_cache, Fcons (entry, cache)); |
| 6093 | 6093 |
| 6094 /* We have the parsing info now for free, so add it to the caches. */ | 6094 /* We have the parsing info now for free, so we could add it to |
| 6095 XSETFASTINT (index, modifiers); | 6095 the caches: |
| 6096 Fput (new_symbol, Qevent_symbol_element_mask, | 6096 XSETFASTINT (index, modifiers); |
| 6097 Fcons (base, Fcons (index, Qnil))); | 6097 Fput (new_symbol, Qevent_symbol_element_mask, |
| 6098 Fput (new_symbol, Qevent_symbol_elements, | 6098 Fcons (base, Fcons (index, Qnil))); |
| 6099 Fcons (base, lispy_modifier_list (modifiers))); | 6099 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 */ | |
| 6100 } | 6103 } |
| 6101 | 6104 |
| 6102 /* Make sure this symbol is of the same kind as BASE. | 6105 /* Make sure this symbol is of the same kind as BASE. |
| 6103 | 6106 |
| 6104 You'd think we could just set this once and for all when we | 6107 You'd think we could just set this once and for all when we |