# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1029831631 0
# Node ID 7f85fb19352a03632ae7d2468fe650ed96d3359f
# Parent  1c45126c0974e9674f9e33c085132e0e0f588fdb
(read_key_sequence): Use ~CHAR_MODIFIER_MASK instead
of direct code 0x3ffff.

diff -r 1c45126c0974 -r 7f85fb19352a src/keyboard.c
--- a/src/keyboard.c	Tue Aug 20 07:56:43 2002 +0000
+++ b/src/keyboard.c	Tue Aug 20 08:20:31 2002 +0000
@@ -8959,9 +8959,8 @@
       if (first_binding == nmaps && ! function_key_possible
 	  && ! key_translation_possible
 	  && INTEGERP (key)
-	  && ((((XINT (key) & 0x3ffff)
-		< XCHAR_TABLE (current_buffer->downcase_table)->size)
-	       && UPPERCASEP (XINT (key) & 0x3ffff))
+	  && ((CHARACTERP (XINT (key) & ~CHAR_MODIFIER_MASK)
+	       && UPPERCASEP (XINT (key) & ~CHAR_MODIFIER_MASK))
 	      || (XINT (key) & shift_modifier)))
 	{
 	  Lisp_Object new_key;
@@ -8972,8 +8971,8 @@
 	  if (XINT (key) & shift_modifier)
 	    XSETINT (new_key, XINT (key) & ~shift_modifier);
 	  else
-	    XSETINT (new_key, (DOWNCASE (XINT (key) & 0x3ffff)
-			       | (XINT (key) & ~0x3ffff)));
+	    XSETINT (new_key, (DOWNCASE (XINT (key) & ~CHAR_MODIFIER_MASK)
+			       | (XINT (key) & CHAR_MODIFIER_MASK)));
 
 	  /* We have to do this unconditionally, regardless of whether
 	     the lower-case char is defined in the keymaps, because they