mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

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

Browse Source 
Use move-to-column, not move-to-column-force.
This commit is contained in:
Richard M. Stallman 2002-03-14 08:57:36 +00:00
parent a5e28954df
commit 5ed5b2c2da
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/textmodes/picture.el
View File

@ -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)