Commit bac8c2e7 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(picture-forward-column): New arg `interactive'

is non-nil for an interactive call.  Use instead of interactive-p.
(picture-backward-column): Likewise.
parent b77784f7
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment