From 0bc6bafd7edde20f55ad4129d8384a1e528e96ff Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 17 Sep 2003 19:26:25 +0000 Subject: [PATCH] (ccl_driver): Fix arg of CHARACTERP. --- src/ccl.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ccl.c b/src/ccl.c index b9dd47ff17c..55e7422511c 100644 --- 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; -- 2.39.2