# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1053033652 0
# Node ID 7dde1bfbb922f80a5f0b4eb09bd7621ac512c29e
# Parent  db5c6e7f697f76f8c6f9188b2c19e36bab420a15
(apply_modifiers): Don't fill the other cache.

diff -r db5c6e7f697f -r 7dde1bfbb922 src/keyboard.c
--- a/src/keyboard.c	Thu May 15 15:36:22 2003 +0000
+++ b/src/keyboard.c	Thu May 15 21:20:52 2003 +0000
@@ -6091,12 +6091,15 @@
       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.