From c23cad0bc68b679f16bf16986392ab07872f95b7 Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gnu.org>
Date: Thu, 5 Sep 2002 16:59:35 +0000
Subject: [PATCH] (read_key_sequence): Fix type error.

---
 src/keyboard.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/keyboard.c b/src/keyboard.c
index ba1705446ab..a578c05e3bc 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -8959,7 +8959,7 @@ read_key_sequence (keybuf, bufsize, prompt, dont_downcase_last,
       if (first_binding == nmaps && ! function_key_possible
 	  && ! key_translation_possible
 	  && INTEGERP (key)
-	  && ((CHARACTERP (XINT (key) & ~CHAR_MODIFIER_MASK)
+	  && ((CHARACTERP (make_number (XINT (key) & ~CHAR_MODIFIER_MASK))
 	       && UPPERCASEP (XINT (key) & ~CHAR_MODIFIER_MASK))
 	      || (XINT (key) & shift_modifier)))
 	{
-- 
2.39.5