Mercurial > emacs
comparison lisp/textmodes/picture.el @ 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 | 507f64624555 |
| children | 473c03886fc2 |
comparison
equal
deleted
inserted
replaced
| 3642:e14773d3f849 | 3643:f336e1e9a664 |
|---|---|
| 32 | 32 |
| 33 (defun move-to-column-force (column) | 33 (defun move-to-column-force (column) |
| 34 "Move to column COLUMN in current line. | 34 "Move to column COLUMN in current line. |
| 35 Differs from `move-to-column' in that it creates or modifies whitespace | 35 Differs from `move-to-column' in that it creates or modifies whitespace |
| 36 if necessary to attain exactly the specified column." | 36 if necessary to attain exactly the specified column." |
| 37 (or (natnump column) (setq column 0)) | |
| 37 (move-to-column column) | 38 (move-to-column column) |
| 38 (let ((col (current-column))) | 39 (let ((col (current-column))) |
| 39 (if (< col column) | 40 (if (< col column) |
| 40 (indent-to column) | 41 (indent-to column) |
| 41 (if (and (/= col column) | 42 (if (and (/= col column) |