Function: allout-flag-current-subtree

allout-flag-current-subtree is a byte-compiled function defined in allout.el.gz.

Signature

(allout-flag-current-subtree FLAG)

Documentation

Conceal currently-visible topic's subtree if FLAG non-nil, else reveal it.

Source Code

;; Defined in /usr/src/emacs/lisp/allout.el.gz
;;;_   > allout-flag-current-subtree (flag)
(defun allout-flag-current-subtree (flag)
  "Conceal currently-visible topic's subtree if FLAG non-nil, else reveal it."

  (save-excursion
    (allout-back-to-current-heading)
    (let ((inhibit-field-text-motion t))
      (end-of-line))
    (allout-flag-region (point)
                        ;; Exposing must not leave trailing blanks hidden,
                        ;; but can leave them exposed when hiding, so we
                        ;; can use flag's inverse as the
                        ;; include-trailing-blank cue:
                        (allout-end-of-current-subtree (not flag))
                        flag)))