1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00

(set_point): Skip past intangible regions.

This commit is contained in:
Karl Heuer 1994-04-08 07:09:18 +00:00
parent 07c57952d8
commit fa7c37595f

View file

@ -1650,12 +1650,10 @@ set_point (position, buffer)
return;
}
/* If the new position is before an invisible character
that has an `invisible' property of value `hidden',
/* If the new position is before an intangible character,
move forward over all such. */
while (! NULL_INTERVAL_P (to)
&& EQ (textget (to->plist, Qinvisible), Qhidden)
&& ! DISPLAY_INVISIBLE_GLYPH (to))
&& ! NILP (textget (to->plist, Qintangible)))
{
toprev = to;
to = next_interval (to);