From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 14 Mar 2002 08:57:36 +0000 (+0000)
Subject: (picture-insert, picture-clear-column, picture-draw-rectangle):
X-Git-Tag: ttn-vms-21-2-B4~16174
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5ed5b2c2da7837f229be2e7d8d6cdd62796a255d;p=emacs.git

(picture-insert, picture-clear-column, picture-draw-rectangle):
Use move-to-column, not move-to-column-force.
---

diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el
index 0ef0630a202..393e5883538 100644
--- a/lisp/textmodes/picture.el
+++ b/lisp/textmodes/picture.el
@@ -240,11 +240,11 @@ Do \\[command-apropos] `picture-movement' to see commands which control motion."
     (while (> arg 0)
       (setq arg (1- arg))
       (if (/= picture-desired-column (current-column))
-	  (move-to-column-force picture-desired-column))
+	  (move-to-column picture-desired-column t))
       (let ((col (+ picture-desired-column width)))
 	(or (eolp)
 	    (let ((pos (point)))
-	      (move-to-column-force col)
+	      (move-to-column col t)
 	      (delete-region pos (point)))))
       (insert ch)
       (forward-char -1)
@@ -265,7 +265,7 @@ Do \\[command-apropos] `picture-movement' to see those commands."
   (let* ((original-col (current-column))
 	 (target-col (max 0 (+ original-col arg)))
 	 pos)
-    (move-to-column-force target-col)
+    (move-to-column target-col t)
     (setq pos (point))
     (move-to-column original-col)
     (delete-region pos (point))
@@ -547,7 +547,7 @@ Leaves the region surrounding the rectangle."
          (top    (min r1 r2))
          (bottom (max r1 r2)))
     (goto-line top)
-    (move-to-column-force left)
+    (move-to-column left t)
     (picture-update-desired-column t)
 
     (picture-movement-right)