diff options
Diffstat (limited to 'src/indent.c')
| -rw-r--r-- | src/indent.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/indent.c b/src/indent.c index 93ff40ba640..8495d43cb9c 100644 --- a/src/indent.c +++ b/src/indent.c @@ -737,7 +737,9 @@ string_display_width (string, beg, end) DEFUN ("indent-to", Findent_to, Sindent_to, 1, 2, "NIndent to column: ", doc: /* Indent from point with tabs and spaces until COLUMN is reached. Optional second argument MINIMUM says always do at least MINIMUM spaces -even if that goes past COLUMN; by default, MINIMUM is zero. */) +even if that goes past COLUMN; by default, MINIMUM is zero. + +The return value is COLUMN. */) (column, minimum) Lisp_Object column, minimum; { @@ -951,7 +953,6 @@ The return value is the current column. */) pos = PT; pos_byte = PT_BYTE; end = ZV; - next_boundary = pos; /* If we're starting past the desired column, back up to beginning of line and scan from there. */ @@ -963,6 +964,8 @@ The return value is the current column. */) col = 0; } + next_boundary = pos; + while (pos < end) { while (pos == next_boundary) |