Mercurial > emacs

changeset 43906:55003e5c6707

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(picture-insert, picture-clear-column, picture-draw-rectangle): Use move-to-column, not move-to-column-force.
author Richard M. Stallman <rms@gnu.org>
date Thu, 14 Mar 2002 08:57:36 +0000
parents 054fd1547d56
children bfe50f90f666
files lisp/textmodes/picture.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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)