Mercurial > emacs
changeset 89570:c92884b9ca4a
(char_table_translate): Use CHARACTERP, not INETEGERP.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 06 Oct 2003 11:20:45 +0000 |
| parents | 111c03888806 |
| children | 242f2cc0134b |
| files | src/chartab.c |
| diffstat | 1 files changed, 2 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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); }