/[emacs]/emacs/src/editfns.c
ViewVC logotype

Diff of /emacs/src/editfns.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.401 by dann, Fri Sep 30 22:38:16 2005 UTC revision 1.402 by monnier, Mon Oct 24 03:51:05 2005 UTC
# Line 2472  determines whether case is significant o Line 2472  determines whether case is significant o
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    
# Line 2593  determines whether case is significant o Line 2593  determines whether case is significant o
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);

Legend:
Removed from v.1.401  
changed lines
  Added in v.1.402

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26