Mercurial > emacs
changeset 13453:ea373c55ed95
(Fmove_to_column): Doc fix.
(compute_motion): Update next_boundary
when we skip to next newline.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 10 Nov 1995 15:48:13 +0000 |
| parents | 5aab5c1f2c33 |
| children | 1a16700ce493 |
| files | src/indent.c |
| diffstat | 1 files changed, 13 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/indent.c Fri Nov 10 08:42:45 1995 +0000 +++ b/src/indent.c Fri Nov 10 15:48:13 1995 +0000 @@ -474,7 +474,9 @@ If it's past end of line, point goes to end of line.\n\n\ A non-nil second (optional) argument FORCE means, if the line\n\ is too short to reach column COLUMN then add spaces/tabs to get there,\n\ -and if COLUMN is in the middle of a tab character, change it to spaces.") +and if COLUMN is in the middle of a tab character, change it to spaces.\n\ +\n\ +The return value is the current column.") (column, force) Lisp_Object column, force; { @@ -764,6 +766,11 @@ /* Truncating: skip to newline. */ pos = find_before_next_newline (pos, to, 1); hpos = width; + /* If we just skipped next_boundary, + loop around in the main while + and handle it. */ + if (pos >= next_boundary) + next_boundary = pos + 1; } else { @@ -914,6 +921,11 @@ everything from a ^M to the end of the line is invisible. Stop *before* the real newline. */ pos = find_before_next_newline (pos, to, 1); + /* If we just skipped next_boundary, + loop around in the main while + and handle it. */ + if (pos > next_boundary) + next_boundary = pos; /* Allow for the " ..." that is displayed for them. */ if (selective_rlen) {