# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1063826785 0
# Node ID c4f948b2b0da32bf5a5646ccb783069f7e4f0ccf
# Parent  d422cab7935a75f51ccccfea6812fed8ef3fa623
(ccl_driver): Fix arg of CHARACTERP.

diff -r d422cab7935a -r c4f948b2b0da src/ccl.c
--- a/src/ccl.c	Wed Sep 17 19:23:44 2003 +0000
+++ b/src/ccl.c	Wed Sep 17 19:26:25 2003 +0000
@@ -1253,7 +1253,7 @@
 		  {
 		    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;