104 |
"Move cursor right, making whitespace if necessary. |
"Move cursor right, making whitespace if necessary. |
105 |
With argument, move that many columns." |
With argument, move that many columns." |
106 |
(interactive "p\nd") |
(interactive "p\nd") |
107 |
(picture-update-desired-column interactive) |
(let (deactivate-mark) |
108 |
(setq picture-desired-column (max 0 (+ picture-desired-column arg))) |
(picture-update-desired-column interactive) |
109 |
(let ((current-column (move-to-column picture-desired-column t))) |
(setq picture-desired-column (max 0 (+ picture-desired-column arg))) |
110 |
(if (and (> current-column picture-desired-column) |
(let ((current-column (move-to-column picture-desired-column t))) |
111 |
(< arg 0)) |
(if (and (> current-column picture-desired-column) |
112 |
;; It seems that we have just tried to move to the right |
(< arg 0)) |
113 |
;; column of a multi-column character. |
;; It seems that we have just tried to move to the right |
114 |
(forward-char -1)))) |
;; column of a multi-column character. |
115 |
|
(forward-char -1))))) |
116 |
|
|
117 |
(defun picture-backward-column (arg &optional interactive) |
(defun picture-backward-column (arg &optional interactive) |
118 |
"Move cursor left, making whitespace if necessary. |
"Move cursor left, making whitespace if necessary. |
125 |
"Move vertically down, making whitespace if necessary. |
"Move vertically down, making whitespace if necessary. |
126 |
With argument, move that many lines." |
With argument, move that many lines." |
127 |
(interactive "p") |
(interactive "p") |
128 |
(picture-update-desired-column nil) |
(let (deactivate-mark) |
129 |
(picture-newline arg) |
(picture-update-desired-column nil) |
130 |
(let ((current-column (move-to-column picture-desired-column t))) |
(picture-newline arg) |
131 |
(if (> current-column picture-desired-column) |
(let ((current-column (move-to-column picture-desired-column t))) |
132 |
(forward-char -1)))) |
(if (> current-column picture-desired-column) |
133 |
|
(forward-char -1))))) |
134 |
|
|
135 |
(defvar picture-vertical-step 0 |
(defvar picture-vertical-step 0 |
136 |
"Amount to move vertically after text character in Picture mode.") |
"Amount to move vertically after text character in Picture mode.") |