Mercurial > emacs
comparison lisp/textmodes/picture.el @ 41302:65b9b5655f50
(picture-vertical-step)
(picture-horizontal-step): Don't use defconst for variables.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 19 Nov 2001 23:45:15 +0000 |
| parents | 34c05876ce21 |
| children | 66882a00d38d |
comparison
equal
deleted
inserted
replaced
| 41301:f13ec83c07b9 | 41302:65b9b5655f50 |
|---|---|
| 128 (picture-newline arg) | 128 (picture-newline arg) |
| 129 (let ((current-column (move-to-column picture-desired-column t))) | 129 (let ((current-column (move-to-column picture-desired-column t))) |
| 130 (if (> current-column picture-desired-column) | 130 (if (> current-column picture-desired-column) |
| 131 (forward-char -1)))) | 131 (forward-char -1)))) |
| 132 | 132 |
| 133 (defconst picture-vertical-step 0 | 133 (defvar picture-vertical-step 0 |
| 134 "Amount to move vertically after text character in Picture mode.") | 134 "Amount to move vertically after text character in Picture mode.") |
| 135 | 135 |
| 136 (defconst picture-horizontal-step 1 | 136 (defvar picture-horizontal-step 1 |
| 137 "Amount to move horizontally after text character in Picture mode.") | 137 "Amount to move horizontally after text character in Picture mode.") |
| 138 | 138 |
| 139 (defun picture-move-up (arg) | 139 (defun picture-move-up (arg) |
| 140 "Move vertically up, making whitespace if necessary. | 140 "Move vertically up, making whitespace if necessary. |
| 141 With argument, move that many lines." | 141 With argument, move that many lines." |