Function: picture-update-desired-column

picture-update-desired-column is a byte-compiled function defined in picture.el.gz.

Signature

(picture-update-desired-column ADJUST-TO-CURRENT)

Documentation

Maybe update picture-desired-column.

If the value of picture-desired-column is more than one column from current-column, or if the argument ADJUST-TO-CURRENT is non-nil, set it to the current column. Return current-column.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/picture.el.gz
(defun picture-update-desired-column (adjust-to-current)
  "Maybe update `picture-desired-column'.
If the value of `picture-desired-column' is more than one column
from `current-column', or if the argument ADJUST-TO-CURRENT is
non-nil, set it to the current column.  Return `current-column'."
  (let ((current-column (current-column)))
    (if (or adjust-to-current
	    (< picture-desired-column (1- current-column))
	    (> picture-desired-column (1+ current-column)))
	(setq picture-desired-column current-column))
    current-column))