[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.37 
emacs/lisp/textmodes/picture.el:1.38
*** emacs/lisp/textmodes/picture.el:1.37        Sun Dec  2 02:06:43 2001
--- emacs/lisp/textmodes/picture.el     Fri Mar  8 04:58:51 2002
***************
*** 100,110 ****
    (skip-chars-backward " \t" (prog1 (point) (end-of-line)))
    (setq picture-desired-column (current-column)))
  
! (defun picture-forward-column (arg)
    "Move cursor right, making whitespace if necessary.
  With argument, move that many columns."
!   (interactive "p")
!   (picture-update-desired-column (interactive-p))
    (setq picture-desired-column (max 0 (+ picture-desired-column arg)))
    (let ((current-column (move-to-column picture-desired-column t)))
      (if (and (> current-column picture-desired-column)
--- 100,110 ----
    (skip-chars-backward " \t" (prog1 (point) (end-of-line)))
    (setq picture-desired-column (current-column)))
  
! (defun picture-forward-column (arg &optional interactive)
    "Move cursor right, making whitespace if necessary.
  With argument, move that many columns."
!   (interactive "p\nd")
!   (picture-update-desired-column interactive)
    (setq picture-desired-column (max 0 (+ picture-desired-column arg)))
    (let ((current-column (move-to-column picture-desired-column t)))
      (if (and (> current-column picture-desired-column)
***************
*** 113,123 ****
        ;; column of a multi-column character.
        (forward-char -1))))
  
! (defun picture-backward-column (arg)
    "Move cursor left, making whitespace if necessary.
  With argument, move that many columns."
!   (interactive "p")
!   (picture-update-desired-column (interactive-p))
    (picture-forward-column (- arg)))
  
  (defun picture-move-down (arg)
--- 113,123 ----
        ;; column of a multi-column character.
        (forward-char -1))))
  
! (defun picture-backward-column (arg &optional interactive)
    "Move cursor left, making whitespace if necessary.
  With argument, move that many columns."
!   (interactive "p\nd")
!   (picture-update-desired-column interactive)
    (picture-forward-column (- arg)))
  
  (defun picture-move-down (arg)