Mercurial > emacs
changeset 43779:6f750829ab0a
(picture-forward-column): New arg `interactive'
is non-nil for an interactive call. Use instead of interactive-p.
(picture-backward-column): Likewise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 08 Mar 2002 09:58:51 +0000 |
| parents | 21f583da1eac |
| children | 412b8fa3fd95 |
| files | lisp/textmodes/picture.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/picture.el Fri Mar 08 09:56:30 2002 +0000 +++ b/lisp/textmodes/picture.el Fri Mar 08 09:58:51 2002 +0000 @@ -100,11 +100,11 @@ (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 @@ ;; 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)