/[emacs]/emacs/src/keyboard.c
ViewVC logotype

Diff of /emacs/src/keyboard.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.743 by monnier, Wed May 14 18:43:12 2003 UTC revision 1.744 by monnier, Thu May 15 21:20:52 2003 UTC
# Line 6091  apply_modifiers (modifiers, base) Line 6091  apply_modifiers (modifiers, base)
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.

Legend:
Removed from v.1.743  
changed lines
  Added in v.1.744

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26