130 |
(if (> current-column picture-desired-column) |
(if (> current-column picture-desired-column) |
131 |
(forward-char -1)))) |
(forward-char -1)))) |
132 |
|
|
133 |
(defconst picture-vertical-step 0 |
(defvar picture-vertical-step 0 |
134 |
"Amount to move vertically after text character in Picture mode.") |
"Amount to move vertically after text character in Picture mode.") |
135 |
|
|
136 |
(defconst picture-horizontal-step 1 |
(defvar picture-horizontal-step 1 |
137 |
"Amount to move horizontally after text character in Picture mode.") |
"Amount to move horizontally after text character in Picture mode.") |
138 |
|
|
139 |
(defun picture-move-up (arg) |
(defun picture-move-up (arg) |