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

(access_keymap, store_in_keymap): Discard meaningless

Browse source 
high bits of a character event.
This commit is contained in:
Richard M. Stallman 1993-06-06 06:45:22 +00:00
parent d4ece6796d
commit 2732bdbbbf
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/keymap.c
View file

@ -272,6 +272,10 @@ access_keymap (map, idx, t_ok)
be put in the canonical order. */
if (XTYPE (idx) == Lisp_Symbol)
idx = reorder_modifiers (idx);
else if (INTEGERP (idx))
/* Clobber the high bits that can be present on a machine
with more than 24 bits of integer. */
XFASTINT (idx) = XINT (idx) & ((1 << 24) - 1);
{
Lisp_Object tail;
@ -368,7 +372,10 @@ store_in_keymap (keymap, idx, def)
be put in the canonical order. */
if (XTYPE (idx) == Lisp_Symbol)
idx = reorder_modifiers (idx);
else if (INTEGERP (idx))
/* Clobber the high bits that can be present on a machine
with more than 24 bits of integer. */
XFASTINT (idx) = XINT (idx) & ((1 << 24) - 1);
/* Scan the keymap for a binding of idx. */
{