Mercurial > hg > xemacs-beta

comparison src/mule-ccl.c @ 4078:6f05405e63fc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-07-26 11:15:04 by aidan] Fix the union build; thank you Robert Delius Royar.
author aidan
date Thu, 26 Jul 2007 11:15:08 +0000
parents aa28d959af41
children ac5a714be3a2
comparison
equal deleted inserted replaced
4077:52d406aab70c 4078:6f05405e63fc
1560 struct Lisp_Hash_Table *h = GET_HASH_TABLE (op); 1560 struct Lisp_Hash_Table *h = GET_HASH_TABLE (op);
1561 htentry *e = find_htentry(make_int(i), h); 1561 htentry *e = find_htentry(make_int(i), h);
1562 1562
1563 if (!HTENTRY_CLEAR_P(e)) 1563 if (!HTENTRY_CLEAR_P(e))
1564 { 1564 {
1565 op = e->value; 1565 if (!INTP (e->value))
1566 if (!INTP (op))
1567 CCL_INVALID_CMD; 1566 CCL_INVALID_CMD;
1568 reg[RRR] = XCHAR_OR_INT (op); 1567 reg[RRR] = XCHAR_OR_INT (e->value);
1569 reg[7] = 1; /* r7 true for success */ 1568 reg[7] = 1; /* r7 true for success */
1570 } 1569 }
1571 else 1570 else
1572 reg[7] = 0; 1571 reg[7] = 0;
1573 } 1572 }