# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1002414039 0
# Node ID 39d3627c1c99b5f553b5cb2f1c4b30a42a914e38
# Parent  6f7166fc8eecb85c6d4818e20b74a5ed78f735c6
(parse_modifiers, apply_modifiers): Use VALMASK.

diff -r 6f7166fc8eec -r 39d3627c1c99 src/keyboard.c
--- a/src/keyboard.c	Sun Oct 07 00:14:18 2001 +0000
+++ b/src/keyboard.c	Sun Oct 07 00:20:39 2001 +0000
@@ -5618,7 +5618,7 @@
 					 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 @@
   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);