# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1016096256 0
# Node ID 55003e5c6707f55814eef0e2274d540e5fee8379
# Parent  054fd1547d5680b01842abcbd57258d54f2f8711
(picture-insert, picture-clear-column, picture-draw-rectangle):
Use move-to-column, not move-to-column-force.

diff -r 054fd1547d56 -r 55003e5c6707 lisp/textmodes/picture.el
--- a/lisp/textmodes/picture.el	Thu Mar 14 08:57:06 2002 +0000
+++ b/lisp/textmodes/picture.el	Thu Mar 14 08:57:36 2002 +0000
@@ -240,11 +240,11 @@
     (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 @@
   (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 @@
          (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)