Mercurial > emacs
changeset 3643:f336e1e9a664
* picture.el (move-to-column-force): If column is negative, go
flush left.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Fri, 11 Jun 1993 10:11:33 +0000 |
| parents | e14773d3f849 |
| children | 9e251319cdc8 |
| files | lisp/textmodes/picture.el |
| diffstat | 1 files changed, 1 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/picture.el Fri Jun 11 09:45:20 1993 +0000 +++ b/lisp/textmodes/picture.el Fri Jun 11 10:11:33 1993 +0000 @@ -34,6 +34,7 @@ "Move to column COLUMN in current line. Differs from `move-to-column' in that it creates or modifies whitespace if necessary to attain exactly the specified column." + (or (natnump column) (setq column 0)) (move-to-column column) (let ((col (current-column))) (if (< col column)