# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1025509642 0
# Node ID 4bea2ef4c58a4561eb99fe84aa63bfedd36d6e81
# Parent  3a5c7022ed2fe9f6c56691780c8efc364dfdfa76
(picture-forward-column)
(picture-move-down): Never deactivate the mark.

diff -r 3a5c7022ed2f -r 4bea2ef4c58a lisp/textmodes/picture.el
--- 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.")