From 05d6275c2e933ab408781ff093674663ae302750 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 6 Oct 2003 11:20:45 +0000 Subject: [PATCH] (char_table_translate): Use CHARACTERP, not INETEGERP. --- src/chartab.c | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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); } -- 2.39.2