Re: quoted-insert in picture-mode in macro

[Richard Stallman]

Please try this fix.

*** picture.el.~1.37.~  Sun Dec  2 19:00:47 2001
--- picture.el  Wed Mar  6 14:30:18 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)