diff options
| author | Karl Heuer | 1999-07-26 19:05:40 +0000 |
|---|---|---|
| committer | Karl Heuer | 1999-07-26 19:05:40 +0000 |
| commit | de4075cff3f641a3f4b4f97f49924136eea0818a (patch) | |
| tree | be28ac526696600e78c263db62f8649c8fdb6556 /src | |
| parent | 70492703cb1c9993b223393e189c8cb152db1c10 (diff) | |
| download | emacs-de4075cff3f641a3f4b4f97f49924136eea0818a.tar.gz emacs-de4075cff3f641a3f4b4f97f49924136eea0818a.zip | |
(Fmove_to_column): Extend end of line only if FORCE is t.
Diffstat (limited to 'src')
| -rw-r--r-- | src/indent.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/indent.c b/src/indent.c index c51f5bb3fc4..92dbbf23468 100644 --- a/src/indent.c +++ b/src/indent.c | |||
| @@ -818,9 +818,10 @@ and horizontal scrolling has no effect.\n\ | |||
| 818 | \n\ | 818 | \n\ |
| 819 | If specified column is within a character, point goes after that character.\n\ | 819 | If specified column is within a character, point goes after that character.\n\ |
| 820 | If it's past end of line, point goes to end of line.\n\n\ | 820 | If it's past end of line, point goes to end of line.\n\n\ |
| 821 | A non-nil second (optional) argument FORCE means, if the line\n\ | 821 | A non-nil second (optional) argument FORCE means,\n\ |
| 822 | is too short to reach column COLUMN then add spaces/tabs to get there,\n\ | 822 | if COLUMN is in the middle of a tab character, change it to spaces.\n\ |
| 823 | and if COLUMN is in the middle of a tab character, change it to spaces.\n\ | 823 | In addition, if FORCE is t, and the line is too short\n\ |
| 824 | to reach column COLUMN, add spaces/tabs to get there.\n\ | ||
| 824 | \n\ | 825 | \n\ |
| 825 | The return value is the current column.") | 826 | The return value is the current column.") |
| 826 | (column, force) | 827 | (column, force) |
| @@ -946,7 +947,7 @@ The return value is the current column.") | |||
| 946 | } | 947 | } |
| 947 | 948 | ||
| 948 | /* If line ends prematurely, add space to the end. */ | 949 | /* If line ends prematurely, add space to the end. */ |
| 949 | if (col < goal && !NILP (force)) | 950 | if (col < goal && EQ (force, Qt)) |
| 950 | Findent_to (make_number (col = goal), Qnil); | 951 | Findent_to (make_number (col = goal), Qnil); |
| 951 | 952 | ||
| 952 | last_known_column = col; | 953 | last_known_column = col; |