Mercurial > emacs

changeset 89026:7f85fb19352a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read_key_sequence): Use ~CHAR_MODIFIER_MASK instead of direct code 0x3ffff.
author Kenichi Handa <handa@m17n.org>
date Tue, 20 Aug 2002 08:20:31 +0000
parents 1c45126c0974
children 8772b1a86905
files src/keyboard.c
diffstat 1 files changed, 4 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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