Mercurial > hg > xemacs-beta

diff src/mule-ccl.c @ 5438:8d29f1c4bb98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge with 21.5 trunk.
author Mats Lidell <matsl@xemacs.org>
date Fri, 26 Nov 2010 06:43:36 +0100
parents 308d34e9f07d c096d8051f89
children 4dee0387b9de
line wrap: on
line diff
--- a/src/mule-ccl.c	Mon Nov 15 22:33:52 2010 +0100
+++ b/src/mule-ccl.c	Fri Nov 26 06:43:36 2010 +0100
@@ -2121,7 +2121,7 @@
 
   val = Fget (ccl_prog, Qccl_program_idx, Qnil);
   if (! NATNUMP (val)
-      || XINT (val) >= XVECTOR_LENGTH (Vccl_program_table))
+      || -1 != bytecode_arithcompare (val, Flength (Vccl_program_table)))
     return Qnil;
   slot = XVECTOR_DATA (Vccl_program_table)[XINT (val)];
   if (! VECTORP (slot)