From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 8 Mar 2002 09:58:51 +0000 (+0000)
Subject: (picture-forward-column): New arg `interactive'
X-Git-Tag: ttn-vms-21-2-B4~16278
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bac8c2e70ae093b10ecc6cffea1256f6d11283ef;p=emacs.git

(picture-forward-column): New arg `interactive'
is non-nil for an interactive call.  Use instead of interactive-p.
(picture-backward-column): Likewise.
---

diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el
index dc47a89dedb..0ef0630a202 100644
--- a/lisp/textmodes/picture.el
+++ b/lisp/textmodes/picture.el
@@ -100,11 +100,11 @@ If scan reaches end of buffer, stop there without error."
   (skip-chars-backward " \t" (prog1 (point) (end-of-line)))
   (setq picture-desired-column (current-column)))
 
-(defun picture-forward-column (arg)
+(defun picture-forward-column (arg &optional interactive)
   "Move cursor right, making whitespace if necessary.
 With argument, move that many columns."
-  (interactive "p")
-  (picture-update-desired-column (interactive-p))
+  (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,11 +113,11 @@ With argument, move that many columns."
 	;; column of a multi-column character.
 	(forward-char -1))))
 
-(defun picture-backward-column (arg)
+(defun picture-backward-column (arg &optional interactive)
   "Move cursor left, making whitespace if necessary.
 With argument, move that many columns."
-  (interactive "p")
-  (picture-update-desired-column (interactive-p))
+  (interactive "p\nd")
+  (picture-update-desired-column interactive)
   (picture-forward-column (- arg)))
 
 (defun picture-move-down (arg)