Function: woman2-get-prevailing-indent

woman2-get-prevailing-indent is a byte-compiled function defined in woman.el.gz.

Signature

(woman2-get-prevailing-indent &optional LEAVE-EOL)

Documentation

Set prevailing indent to integer argument at point, and return it.

If no argument then return the existing prevailing indent. Delete line from point and eol unless LEAVE-EOL is non-nil.

Source Code

;; Defined in /usr/src/emacs/lisp/woman.el.gz
(defun woman2-get-prevailing-indent (&optional leave-eol)
  "Set prevailing indent to integer argument at point, and return it.
If no argument then return the existing prevailing indent.
Delete line from point and eol unless LEAVE-EOL is non-nil."
  (if (eolp)
      (or leave-eol (delete-char 1))
    (let ((i (woman-get-numeric-arg)))
      (woman-delete-line) (or leave-eol (delete-char 1))
      ;; i = 0 if the argument was not a number
      ;; FIXME should this be >= 0? How else to reset to 0 indent?
      (if (> i 0) (setq woman-prevailing-indent i))))
  woman-prevailing-indent)