From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 11 Mar 1995 22:03:27 +0000 (+0000)
Subject: (Fnext_property_change): Handle LIMIT = t.
X-Git-Tag: emacs-19.34~4896
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=041aa96f12491a64f0f0d4fec6a56eb83f38ffbf;p=emacs.git

(Fnext_property_change): Handle LIMIT = t.
---

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