(read_char): Check if C is a character or not before

looking up Vkeyboard_translate_table.

1 files changed, 2 insertions, 1 deletions

diff --git a/src/keyboard.c b/src/keyboard.c
index 84532871be5..3f49d612b1d 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -2974,7 +2974,8 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu)
            && SCHARS (Vkeyboard_translate_table) > (unsigned) XFASTINT (c))
           || (VECTORP (Vkeyboard_translate_table)
               && XVECTOR (Vkeyboard_translate_table)->size > (unsigned) XFASTINT (c))
-          || CHAR_TABLE_P (Vkeyboard_translate_table))
+          || (CHAR_TABLE_P (Vkeyboard_translate_table)
+              && CHARACTERP (c)))
         {
           Lisp_Object d;
           d = Faref (Vkeyboard_translate_table, c);