diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-06-11 10:11:33 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-06-11 10:11:33 +0000 |
| commit | c45a6306850d425b74b317329816567b5567f5e5 (patch) | |
| tree | 74c020f7c289a9b9f78113b66179e75eb45283cb /lisp/textmodes/picture.el | |
| parent | 1f3696d7df62332558c8715368e74c37c87ee7e6 (diff) | |
| download | emacs-c45a6306850d425b74b317329816567b5567f5e5.tar.gz | |
* picture.el (move-to-column-force): If column is negative, go
flush left.
Diffstat (limited to 'lisp/textmodes/picture.el')
| -rw-r--r-- | lisp/textmodes/picture.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el index 7c0490b6d2e..b8a1ec0c5c2 100644 --- a/lisp/textmodes/picture.el +++ b/lisp/textmodes/picture.el @@ -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) |