mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-09 05:01:02 -08:00
Code Issues Projects Releases Wiki Activity

(apply_modifiers): Don't fill the other cache.

Browse source
This commit is contained in:
Stefan Monnier 2003-05-15 21:21:06 +00:00
parent 4e0b27cd73
commit 35fb885d5c
2 changed files with 13 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/ChangeLog
View file

@ -1,3 +1,7 @@
2003-05-15 Stefan Monnier <monnier@cs.yale.edu>
* keyboard.c (apply_modifiers): Don't fill the other cache.
2003-05-14 Stefan Monnier <monnier@cs.yale.edu>
* .gdbinit-union: New file, for USE_LISP_UNION_TYPE users.

15
src/keyboard.c
View file

@ -6091,12 +6091,15 @@ apply_modifiers (modifiers, base)
entry = Fcons (index, new_symbol);
Fput (base, Qmodifier_cache, Fcons (entry, cache));
/* We have the parsing info now for free, so add it to the caches. */
XSETFASTINT (index, modifiers);
Fput (new_symbol, Qevent_symbol_element_mask,
Fcons (base, Fcons (index, Qnil)));
Fput (new_symbol, Qevent_symbol_elements,
Fcons (base, lispy_modifier_list (modifiers)));
/* We have the parsing info now for free, so we could add it to
the caches:
XSETFASTINT (index, modifiers);
Fput (new_symbol, Qevent_symbol_element_mask,
Fcons (base, Fcons (index, Qnil)));
Fput (new_symbol, Qevent_symbol_elements,
Fcons (base, lispy_modifier_list (modifiers)));
Sadly, this is only correct if `base' is indeed a base event,
which is not necessarily the case. -stef */
}
/* Make sure this symbol is of the same kind as BASE.