[Emacs-diffs] Changes to emacs/lisp/textmodes/picture.el

[Richard M. Stallman]

Index: emacs/lisp/textmodes/picture.el
diff -c emacs/lisp/textmodes/picture.el:1.38 
emacs/lisp/textmodes/picture.el:1.39
*** emacs/lisp/textmodes/picture.el:1.38        Fri Mar  8 04:58:51 2002
--- emacs/lisp/textmodes/picture.el     Thu Mar 14 03:57:36 2002
***************
*** 240,250 ****
      (while (> arg 0)
        (setq arg (1- arg))
        (if (/= picture-desired-column (current-column))
!         (move-to-column-force picture-desired-column))
        (let ((col (+ picture-desired-column width)))
        (or (eolp)
            (let ((pos (point)))
!             (move-to-column-force col)
              (delete-region pos (point)))))
        (insert ch)
        (forward-char -1)
--- 240,250 ----
      (while (> arg 0)
        (setq arg (1- arg))
        (if (/= picture-desired-column (current-column))
!         (move-to-column picture-desired-column t))
        (let ((col (+ picture-desired-column width)))
        (or (eolp)
            (let ((pos (point)))
!             (move-to-column col t)
              (delete-region pos (point)))))
        (insert ch)
        (forward-char -1)
***************
*** 265,271 ****
    (let* ((original-col (current-column))
         (target-col (max 0 (+ original-col arg)))
         pos)
!     (move-to-column-force target-col)
      (setq pos (point))
      (move-to-column original-col)
      (delete-region pos (point))
--- 265,271 ----
    (let* ((original-col (current-column))
         (target-col (max 0 (+ original-col arg)))
         pos)
!     (move-to-column target-col t)
      (setq pos (point))
      (move-to-column original-col)
      (delete-region pos (point))
***************
*** 547,553 ****
           (top    (min r1 r2))
           (bottom (max r1 r2)))
      (goto-line top)
!     (move-to-column-force left)
      (picture-update-desired-column t)
  
      (picture-movement-right)
--- 547,553 ----
           (top    (min r1 r2))
           (bottom (max r1 r2)))
      (goto-line top)
!     (move-to-column left t)
      (picture-update-desired-column t)
  
      (picture-movement-right)