Mercurial > hg > xemacs-beta

comparison src/syntax.c @ 2506:8c96bdabcaf9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-01-26 05:11:01 by ben] implement next-single-char-property-change and friends extents.c, extents.h, indent.c, syntax.c: Implement next/previous-single-char-property-change and make next/previous-single-property-change work like in FSF.
author ben
date Wed, 26 Jan 2005 05:11:12 +0000
parents 13a418960a88
children facf3239ba30
comparison
equal deleted inserted replaced
2505:3e5a2d0d57e1 2506:8c96bdabcaf9
446 446
447 pos = buffer_or_string_charxpos_to_bytexpos (cache->object, cpos); 447 pos = buffer_or_string_charxpos_to_bytexpos (cache->object, cpos);
448 448
449 tmp_table = get_char_property (pos, Qsyntax_table, cache->object, 449 tmp_table = get_char_property (pos, Qsyntax_table, cache->object,
450 EXTENT_AT_AFTER, 0); 450 EXTENT_AT_AFTER, 0);
451 lim = next_single_property_change (pos, Qsyntax_table, cache->object, 451 lim = next_previous_single_property_change (pos, Qsyntax_table,
452 -1); 452 cache->object, -1, 1, 0);
453 if (lim < 0) 453 if (lim < 0)
454 { 454 {
455 next = buffer_or_string_absolute_end_byte (cache->object); 455 next = buffer_or_string_absolute_end_byte (cache->object);
456 at_begin = 1; 456 at_begin = 1;
457 } 457 }
458 else 458 else
459 next = lim; 459 next = lim;
460 460
461 if (pos < buffer_or_string_absolute_end_byte (cache->object)) 461 if (pos < buffer_or_string_absolute_end_byte (cache->object))
462 pos = next_bytexpos (cache->object, pos); 462 pos = next_bytexpos (cache->object, pos);
463 lim = previous_single_property_change (pos, Qsyntax_table, cache->object, 463 lim = next_previous_single_property_change (pos, Qsyntax_table,
464 -1); 464 cache->object, -1, 0, 0);
465 if (lim < 0) 465 if (lim < 0)
466 { 466 {
467 prev = buffer_or_string_absolute_begin_byte (cache->object); 467 prev = buffer_or_string_absolute_begin_byte (cache->object);
468 at_end = 1; 468 at_end = 1;
469 } 469 }