mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 07:11:34 -08:00
Code Issues Projects Releases Wiki Activity

(Fnext_property_change): Handle LIMIT = t.

Browse source
This commit is contained in:
Richard M. Stallman 1995-03-11 22:03:27 +00:00
parent 9184aafbcd
commit 041aa96f12
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/textprop.c
View file

@ -606,7 +606,7 @@ past position LIMIT; return LIMIT if nothing is found before LIMIT.")
if (NILP (object))
XSETBUFFER (object, current_buffer);
if (!NILP (limit))
if (! NILP (limit) && ! EQ (limit, Qt))
CHECK_NUMBER_COERCE_MARKER (limit, 0);
i = validate_interval_range (object, &pos, &pos, soft);
@ -614,6 +614,14 @@ past position LIMIT; return LIMIT if nothing is found before LIMIT.")
return limit;
next = next_interval (i);
/* If LIMIT is t, return start of next interval--don't
bother checking further intervals. */
if (EQ (limit, Qt))
{
XSETFASTINT (pos, next->position - (STRINGP (object)));
return pos;
}
while (! NULL_INTERVAL_P (next) && intervals_equal (i, next)
&& (NILP (limit) || next->position < XFASTINT (limit)))
next = next_interval (next);