diff options
author | Richard M. Stallman <rms@gnu.org> | 2002-03-08 09:58:51 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 2002-03-08 09:58:51 +0000 |
commit | bac8c2e70ae093b10ecc6cffea1256f6d11283ef (patch) | |
tree | 423367986c1da813692951bd4c26ed4a45220a59 /lisp/textmodes/picture.el | |
parent | b77784f7d95ae2befb5f6c03952172a4056ff3b8 (diff) | |
download | emacs-bac8c2e70ae093b10ecc6cffea1256f6d11283ef.tar.gz |
(picture-forward-column): New arg `interactive'
is non-nil for an interactive call. Use instead of interactive-p.
(picture-backward-column): Likewise.
Diffstat (limited to 'lisp/textmodes/picture.el')
-rw-r--r-- | lisp/textmodes/picture.el | 12 |
1 files changed, 6 insertions, 6 deletions
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) |