(picture-insert, picture-clear-column, picture-draw-rectangle):

Use move-to-column, not move-to-column-force.

1 files changed, 4 insertions, 4 deletions

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)