From: Kenichi Handa <handa@m17n.org>
Date: Mon, 6 Oct 2003 11:20:45 +0000 (+0000)
Subject: (char_table_translate): Use CHARACTERP, not INETEGERP.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1778
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=05d6275c2e933ab408781ff093674663ae302750;p=emacs.git

(char_table_translate): Use CHARACTERP, not INETEGERP.
---

diff --git a/src/chartab.c b/src/chartab.c
index 0004aa6cfb2..a70eddeec49 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -642,8 +642,7 @@ This function is obsolete and has no effect.  */)
 }
 
 /* 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 @@ char_table_translate (table, ch)
 {
   Lisp_Object value;
   value = Faref (table, make_number (ch));
-  if (! INTEGERP (value))	/* fixme: use CHARACTERP? */
+  if (! CHARACTERP (value))
     return ch;
   return XINT (value);
 }