Commit f75c0f8a authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(compute_motion): Pass new arg to Fnext_single_property_change.

parent b349f4fb
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment