diff options
| author | Richard M. Stallman <[email protected]> | 2002-07-01 07:47:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 2002-07-01 07:47:22 +0000 |
| commit | 4855897e98686e83242570f3076a3f2b4da77b0c (patch) | |
| tree | 3bb5c9c8458e87fd5e1540b0f26fd13357355047 /lisp/textmodes | |
| parent | 6b285f6079f13567ba5ac5f7c269fcce371ccf40 (diff) | |
(picture-forward-column)
(picture-move-down): Never deactivate the mark.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/picture.el | 28 |
1 files changed, 15 insertions, 13 deletions
diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el index 393e588353..e3a5a89f07 100644 --- a/lisp/textmodes/picture.el +++ b/lisp/textmodes/picture.el @@ -104,14 +104,15 @@ If scan reaches end of buffer, stop there without error." "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 @@ With argument, move that many columns." "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.") |