Mercurial > emacs
comparison src/textprop.c @ 7773:2226c7efb3da
(Fprevious_single_property_change): Check for null interval after correcting
for edge effects.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 03 Jun 1994 04:08:32 +0000 |
| parents | 454c279b6d18 |
| children | e8556db1b7f3 |
comparison
equal
deleted
inserted
replaced
| 7772:7821be0db092 | 7773:2226c7efb3da |
|---|---|
| 761 | 761 |
| 762 if (!NILP (limit)) | 762 if (!NILP (limit)) |
| 763 CHECK_NUMBER_COERCE_MARKER (limit, 0); | 763 CHECK_NUMBER_COERCE_MARKER (limit, 0); |
| 764 | 764 |
| 765 i = validate_interval_range (object, &pos, &pos, soft); | 765 i = validate_interval_range (object, &pos, &pos, soft); |
| 766 | |
| 767 /* Start with the interval containing the char before point. */ | |
| 768 if (! NULL_INTERVAL_P (i) && i->position == XFASTINT (pos)) | |
| 769 i = previous_interval (i); | |
| 770 | |
| 766 if (NULL_INTERVAL_P (i)) | 771 if (NULL_INTERVAL_P (i)) |
| 767 return limit; | 772 return limit; |
| 768 | |
| 769 /* Start with the interval containing the char before point. */ | |
| 770 if (i->position == XFASTINT (pos)) | |
| 771 i = previous_interval (i); | |
| 772 | 773 |
| 773 here_val = textget (i->plist, prop); | 774 here_val = textget (i->plist, prop); |
| 774 previous = previous_interval (i); | 775 previous = previous_interval (i); |
| 775 while (! NULL_INTERVAL_P (previous) | 776 while (! NULL_INTERVAL_P (previous) |
| 776 && EQ (here_val, textget (previous->plist, prop)) | 777 && EQ (here_val, textget (previous->plist, prop)) |