Mercurial > emacs
changeset 46103:4bea2ef4c58a
(picture-forward-column)
(picture-move-down): Never deactivate the mark.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 01 Jul 2002 07:47:22 +0000 |
| parents | 3a5c7022ed2f |
| children | ee6975afddef |
| files | lisp/textmodes/picture.el |
| diffstat | 1 files changed, 15 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/picture.el Sun Jun 30 21:29:39 2002 +0000 +++ b/lisp/textmodes/picture.el Mon Jul 01 07:47:22 2002 +0000 @@ -104,14 +104,15 @@ "Move cursor right, making whitespace if necessary. With argument, move that many columns." (interactive "p\nd") - (picture-update-desired-column interactive) - (setq picture-desired-column (max 0 (+ picture-desired-column arg))) - (let ((current-column (move-to-column picture-desired-column t))) - (if (and (> current-column picture-desired-column) - (< arg 0)) - ;; It seems that we have just tried to move to the right - ;; column of a multi-column character. - (forward-char -1)))) + (let (deactivate-mark) + (picture-update-desired-column interactive) + (setq picture-desired-column (max 0 (+ picture-desired-column arg))) + (let ((current-column (move-to-column picture-desired-column t))) + (if (and (> current-column picture-desired-column) + (< arg 0)) + ;; It seems that we have just tried to move to the right + ;; column of a multi-column character. + (forward-char -1))))) (defun picture-backward-column (arg &optional interactive) "Move cursor left, making whitespace if necessary. @@ -124,11 +125,12 @@ "Move vertically down, making whitespace if necessary. With argument, move that many lines." (interactive "p") - (picture-update-desired-column nil) - (picture-newline arg) - (let ((current-column (move-to-column picture-desired-column t))) - (if (> current-column picture-desired-column) - (forward-char -1)))) + (let (deactivate-mark) + (picture-update-desired-column nil) + (picture-newline arg) + (let ((current-column (move-to-column picture-desired-column t))) + (if (> current-column picture-desired-column) + (forward-char -1))))) (defvar picture-vertical-step 0 "Amount to move vertically after text character in Picture mode.")