Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
f75c0f8a
Commit
f75c0f8a
authored
Nov 20, 1993
by
Richard M. Stallman
Browse files
(compute_motion): Pass new arg to Fnext_single_property_change.
parent
b349f4fb
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
21 additions
and
19 deletions
+21
-19
src/indent.c
src/indent.c
+21
-19
No files found.
src/indent.c
View file @
f75c0f8a
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment