# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1142322758 0
# Node ID 63ef337729c5b4432a866c43a8559c83d9814623
# Parent  a802c5505156e7bb4de407bc59ba06c4d9afd3ba
(read_char): Check if C is a character or not before
looking up Vkeyboard_translate_table.

diff -r a802c5505156 -r 63ef337729c5 src/keyboard.c
--- a/src/keyboard.c	Mon Mar 13 12:19:58 2006 +0000
+++ b/src/keyboard.c	Tue Mar 14 07:52:38 2006 +0000
@@ -2974,7 +2974,8 @@
 	   && 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);