# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1065439245 0
# Node ID c92884b9ca4a4fe7e1fc598884ee546b486604c4
# Parent  111c03888806f0f3791367b16268c71d153d2313
(char_table_translate): Use CHARACTERP, not INETEGERP.

diff -r 111c03888806 -r c92884b9ca4a src/chartab.c
--- a/src/chartab.c	Mon Oct 06 11:20:06 2003 +0000
+++ b/src/chartab.c	Mon Oct 06 11:20:45 2003 +0000
@@ -642,8 +642,7 @@
 }
 
 /* Look up the element in TABLE at index CH, and return it as an
-   integer.  If the element is nil, return CH itself.  (Actually we do
-   that for any non-integer.)  */
+   integer.  If the element is not a character, return CH itself.  */
 
 int
 char_table_translate (table, ch)
@@ -652,7 +651,7 @@
 {
   Lisp_Object value;
   value = Faref (table, make_number (ch));
-  if (! INTEGERP (value))	/* fixme: use CHARACTERP? */
+  if (! CHARACTERP (value))
     return ch;
   return XINT (value);
 }