summaryrefslogtreecommitdiff
path: root/src/indent.c
diff options
context:
space:
mode:
authorKarl Heuer <kwzh@gnu.org>1999-07-26 19:05:40 +0000
committerKarl Heuer <kwzh@gnu.org>1999-07-26 19:05:40 +0000
commitde4075cff3f641a3f4b4f97f49924136eea0818a (patch)
treebe28ac526696600e78c263db62f8649c8fdb6556 /src/indent.c
parent70492703cb1c9993b223393e189c8cb152db1c10 (diff)
downloademacs-de4075cff3f641a3f4b4f97f49924136eea0818a.tar.gz
(Fmove_to_column): Extend end of line only if FORCE is t.
Diffstat (limited to 'src/indent.c')
-rw-r--r--src/indent.c9
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\
\n\
If specified column is within a character, point goes after that character.\n\
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.\n\
+A non-nil second (optional) argument FORCE means,\n\
+if COLUMN is in the middle of a tab character, change it to spaces.\n\
+In addition, if FORCE is t, and the line is too short\n\
+to reach column COLUMN, add spaces/tabs to get there.\n\
\n\
The return value is the current column.")
(column, force)
@@ -946,7 +947,7 @@ The return value is the current column.")
}
/* If line ends prematurely, add space to the end. */
- if (col < goal && !NILP (force))
+ if (col < goal && EQ (force, Qt))
Findent_to (make_number (col = goal), Qnil);
last_known_column = col;