From: Gerd Moellmann <gerd@gnu.org>
Date: Sun, 7 Oct 2001 00:20:39 +0000 (+0000)
Subject: (parse_modifiers, apply_modifiers): Use VALMASK.
X-Git-Tag: ttn-vms-21-2-B4~19680
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c4aeb9d84deac0ddd192ef19a1dae3026f859164;p=emacs.git

(parse_modifiers, apply_modifiers): Use VALMASK.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 9f1a7b38ea6..b9b825e16b3 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -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);