(ccl_driver): Fix arg of CHARACTERP.

diff --git a/src/ccl.c b/src/ccl.c
index b9dd47ff17c57cd1446e97e876ded21623016ffe..55e7422511c0d0db0b744dfa0196c68530034a8c 100644 (file)
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -1253,7 +1253,7 @@ ccl_driver (ccl, source, destination, src_size, dst_size, charset_list)
                  {
                    Lisp_Object opl;
                    opl = HASH_VALUE (h, op);
-                   if (! CHARACTERP (XINT (opl)))
+                   if (! CHARACTERP (opl))
                      CCL_INVALID_CMD;
                    reg[RRR] = charset_unicode;
                    reg[rrr] = op;