2472 |
{ |
{ |
2473 |
register int begp1, endp1, begp2, endp2, temp; |
register int begp1, endp1, begp2, endp2, temp; |
2474 |
register struct buffer *bp1, *bp2; |
register struct buffer *bp1, *bp2; |
2475 |
register Lisp_Object *trt |
register Lisp_Object trt |
2476 |
= (!NILP (current_buffer->case_fold_search) |
= (!NILP (current_buffer->case_fold_search) |
2477 |
? XCHAR_TABLE (current_buffer->case_canon_table)->contents : 0); |
? XCHAR_TABLE (current_buffer->case_canon_table) : Qnil); |
2478 |
int chars = 0; |
int chars = 0; |
2479 |
int i1, i2, i1_byte, i2_byte; |
int i1, i2, i1_byte, i2_byte; |
2480 |
|
|
2593 |
i2++; |
i2++; |
2594 |
} |
} |
2595 |
|
|
2596 |
if (trt) |
if (!NILP (trt)) |
2597 |
{ |
{ |
2598 |
c1 = XINT (trt[c1]); |
c1 = CHAR_TABLE_TRANSLATE (trt, c1); |
2599 |
c2 = XINT (trt[c2]); |
c2 = CHAR_TABLE_TRANSLATE (trt, c2); |
2600 |
} |
} |
2601 |
if (c1 < c2) |
if (c1 < c2) |
2602 |
return make_number (- 1 - chars); |
return make_number (- 1 - chars); |