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)) |