diff options
author | Kenichi Handa <[email protected]> | 2003-10-06 11:20:45 +0000 |
---|---|---|
committer | Kenichi Handa <[email protected]> | 2003-10-06 11:20:45 +0000 |
commit | 05d6275c2e933ab408781ff093674663ae302750 (patch) | |
tree | 24f86c058cc572914f045d4b09d757503e5871d8 | |
parent | 96f45cf0a726fbf8248ab9f1a1d68c7da20ce8cf (diff) |
(char_table_translate): Use CHARACTERP, not INETEGERP.
-rw-r--r-- | src/chartab.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/chartab.c b/src/chartab.c index 0004aa6cfb..a70eddeec4 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); } |