Commit c4aeb9d8 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(parse_modifiers, apply_modifiers): Use VALMASK.

parent d9eb1c3d
......@@ -5618,7 +5618,7 @@ parse_modifiers (symbol)
STRING_BYTES (XSYMBOL (symbol)->name) - end),
Qnil);
if (modifiers & ~(((EMACS_INT)1 << VALBITS) - 1))
if (modifiers & ~VALMASK)
abort ();
XSETFASTINT (mask, modifiers);
elements = Fcons (unmodified, Fcons (mask, Qnil));
......@@ -5655,7 +5655,7 @@ apply_modifiers (modifiers, base)
Lisp_Object cache, index, entry, new_symbol;
/* Mask out upper bits. We don't know where this value's been. */
modifiers &= ((EMACS_INT)1 << VALBITS) - 1;
modifiers &= VALMASK;
/* The click modifier never figures into cache indices. */
cache = Fget (base, Qmodifier_cache);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment