(read_char): Use unsigned to compare against

the size of Vkeyboard_translate_table.
Check size for char-table too.

diff --git a/src/keyboard.c b/src/keyboard.c
index aa9138a4bad3fd63e6f58b50ef9cf0a86b11d2bd..e9f6dc7e49eb550a8b834a1532494a1631c686b9 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -2096,11 +2096,12 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu)
        return c;
 
       if (STRINGP (Vkeyboard_translate_table)
-         && XSTRING (Vkeyboard_translate_table)->size > XFASTINT (c))
+         && XSTRING (Vkeyboard_translate_table)->size > (unsigned) XFASTINT (c))
        XSETINT (c, XSTRING (Vkeyboard_translate_table)->data[XFASTINT (c)]);
       else if ((VECTORP (Vkeyboard_translate_table)
-               && XVECTOR (Vkeyboard_translate_table)->size > XFASTINT (c))
-              || CHAR_TABLE_P (Vkeyboard_translate_table))
+               && XVECTOR (Vkeyboard_translate_table)->size > (unsigned) XFASTINT (c))
+              || (CHAR_TABLE_P (Vkeyboard_translate_table)
+                  && CHAR_TABLE_ORDINARY_SLOTS > (unsigned) XFASTINT (c)))
        {
          Lisp_Object d;
          d = Faref (Vkeyboard_translate_table, c);