Mercurial > emacs
comparison src/textprop.c @ 11116:73b51ad289e3
(Fnext_property_change): Fix previous change.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 24 Mar 1995 22:46:42 +0000 |
| parents | 7f0bc7bcf1f3 |
| children | 5db8a01b22cb |
comparison
equal
deleted
inserted
replaced
| 11115:9414f249cd8b | 11116:73b51ad289e3 |
|---|---|
| 616 next = next_interval (i); | 616 next = next_interval (i); |
| 617 /* If LIMIT is t, return start of next interval--don't | 617 /* If LIMIT is t, return start of next interval--don't |
| 618 bother checking further intervals. */ | 618 bother checking further intervals. */ |
| 619 if (EQ (limit, Qt)) | 619 if (EQ (limit, Qt)) |
| 620 { | 620 { |
| 621 XSETFASTINT (pos, next->position - (STRINGP (object))); | 621 if (NULL_INTERVAL_P (next)) |
| 622 XSETFASTINT (pos, (STRINGP (object) | |
| 623 ? XSTRING (object)->size | |
| 624 : BUF_ZV (XBUFFER (object)))); | |
| 625 else | |
| 626 XSETFASTINT (pos, next->position - (STRINGP (object))); | |
| 622 return pos; | 627 return pos; |
| 623 } | 628 } |
| 624 | 629 |
| 625 while (! NULL_INTERVAL_P (next) && intervals_equal (i, next) | 630 while (! NULL_INTERVAL_P (next) && intervals_equal (i, next) |
| 626 && (NILP (limit) || next->position < XFASTINT (limit))) | 631 && (NILP (limit) || next->position < XFASTINT (limit))) |