Function: allout-hide-region-body

allout-hide-region-body is a byte-compiled function defined in allout.el.gz.

Signature

(allout-hide-region-body START END)

Documentation

Hide all body lines in the region, but not headings.

Source Code

;; Defined in /usr/src/emacs/lisp/allout.el.gz
;;;_   > allout-hide-region-body (start end)
(defun allout-hide-region-body (start end)
  "Hide all body lines in the region, but not headings."
  (save-match-data
    (save-excursion
      (save-restriction
        (narrow-to-region start end)
        (goto-char (point-min))
        (let ((inhibit-field-text-motion t))
          (while (not (eobp))
            (end-of-line)
            (allout-flag-region (point) (allout-end-of-entry) t)
            (if (not (eobp))
                (forward-char
                 (if (looking-at "\n\n")
                     2 1)))))))))