Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
5437:002cb5224e4f 5438:8d29f1c4bb98
2119 if (!SYMBOLP (ccl_prog)) 2119 if (!SYMBOLP (ccl_prog))
2120 return Qnil; 2120 return Qnil;
2121 2121
2122 val = Fget (ccl_prog, Qccl_program_idx, Qnil); 2122 val = Fget (ccl_prog, Qccl_program_idx, Qnil);
2123 if (! NATNUMP (val) 2123 if (! NATNUMP (val)
2124 || XINT (val) >= XVECTOR_LENGTH (Vccl_program_table)) 2124 || -1 != bytecode_arithcompare (val, Flength (Vccl_program_table)))
2125 return Qnil; 2125 return Qnil;
2126 slot = XVECTOR_DATA (Vccl_program_table)[XINT (val)]; 2126 slot = XVECTOR_DATA (Vccl_program_table)[XINT (val)];
2127 if (! VECTORP (slot) 2127 if (! VECTORP (slot)
2128 || XVECTOR (slot)->size != 3 2128 || XVECTOR (slot)->size != 3
2129 || ! VECTORP (XVECTOR_DATA (slot)[1])) 2129 || ! VECTORP (XVECTOR_DATA (slot)[1]))