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

diff --git a/src/ChangeLog b/src/ChangeLog
index 702ed09afeee0fb31d1b7d1a8aa727fda557c03d..1ff5c7cedf4033b7e07aabc4d403a9a6d7e300b8 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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.

diff --git a/src/keyboard.c b/src/keyboard.c
index 512755faf28e56f6138a8343c09b2e6afddea5eb..dd8b751c8d5d358a7b986ea38c1b25c929c31099 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -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.