Commit 05d6275c authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(char_table_translate): Use CHARACTERP, not INETEGERP.

parent 96f45cf0
......@@ -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);
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment