Function: picture-forward-column

picture-forward-column is an interactive and byte-compiled function defined in picture.el.gz.

Signature

(picture-forward-column ARG &optional INTERACTIVE)

Documentation

Move cursor right, making whitespace if necessary.

With argument, move that many columns.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/picture.el.gz
(defun picture-forward-column (arg &optional interactive)
  "Move cursor right, making whitespace if necessary.
With argument, move that many columns."
  (interactive "^p\nd")
  (let (deactivate-mark)
    (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)
	       (< arg 0))
	  ;; It seems that we have just tried to move to the right
	  ;; column of a multi-column character.
	  (forward-char -1)))))