From 041aa96f12491a64f0f0d4fec6a56eb83f38ffbf Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 11 Mar 1995 22:03:27 +0000 Subject: [PATCH] (Fnext_property_change): Handle LIMIT = t. --- src/textprop.c | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/src/textprop.c b/src/textprop.c index be55e59aefa..7e92be89865 100644 --- a/src/textprop.c +++ b/src/textprop.c @@ -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); -- 2.39.5