# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 834592837 0
# Node ID 7824cf167226bdde29582e82232bbe1d9fe45c4c
# Parent  9691904c57a5baf9c06f998dff6b8e7283bf5390
(read_char): Use unsigned to compare against
the size of Vkeyboard_translate_table.
Check size for char-table too.

diff -r 9691904c57a5 -r 7824cf167226 src/keyboard.c
--- a/src/keyboard.c	Wed Jun 12 15:00:48 1996 +0000
+++ b/src/keyboard.c	Wed Jun 12 15:20:37 1996 +0000
@@ -2096,11 +2096,12 @@
 	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);