(compute_motion): Pass new arg to Fnext_single_property_change.

1 files changed, 21 insertions, 19 deletions

diff --git a/src/indent.c b/src/indent.c
index f47cb2091bd..569057d895a 100644
--- a/src/indent.c
+++ b/src/indent.c
@@ -460,25 +460,27 @@ compute_motion (from, fromvpos, fromhpos, to, tovpos, tohpos, width, hscroll, ta
       /* if the `invisible' property is set, we can skip to
 	 the next property change */
       while (pos == next_invisible && pos < to)
-      {
-	XFASTINT (position) = pos;
-	prop = Fget_text_property (position,
-				   Qinvisible,
-				   Fcurrent_buffer ());
-        {
-	  Lisp_Object end;
-
-	  end = Fnext_single_property_change (position,
-					      Qinvisible,
-					      Fcurrent_buffer ());
-	  if (INTEGERP (end))
-	    next_invisible = XINT (end);
-	  else
-	    next_invisible = to;
-	  if (! NILP (prop))
-	    pos = next_invisible;
-        }
-      }
+	{
+	  XFASTINT (position) = pos;
+	  prop = Fget_text_property (position,
+				     Qinvisible,
+				     Fcurrent_buffer ());
+	  {
+	    Lisp_Object end, limit;
+
+	    /* This is just an estimate to give reasonable
+	       performance; nothing should go wrong if it is too small.  */
+	    XFASTINT (limit) = pos + 100;
+	    end = Fnext_single_property_change (position, Qinvisible,
+						Fcurrent_buffer (), limit);
+	    if (INTEGERP (end))
+	      next_invisible = XINT (end);
+	    else
+	      next_invisible = to;
+	    if (! NILP (prop))
+	      pos = next_invisible;
+	  }
+	}
       if (pos >= to)
 	break;
 #endif