Function: allout-flag-region

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

Signature

(allout-flag-region FROM TO FLAG)

Documentation

Conceal text between FROM and TO if FLAG is non-nil, else reveal it.

After the exposure changes are made, run the abnormal hook allout-exposure-change-functions with the same arguments as this function.

Source Code

;; Defined in /usr/src/emacs/lisp/allout.el.gz
;;;_ #6 Exposure Control

;;;_  - Fundamental
;;;_   > allout-flag-region (from to flag)
(defun allout-flag-region (from to flag)
  "Conceal text between FROM and TO if FLAG is non-nil, else reveal it.
After the exposure changes are made, run the abnormal hook
`allout-exposure-change-functions' with the same arguments as
this function."

  ;; We use outline invisibility spec.
  (remove-overlays from to 'category 'allout-exposure-category)
  (when flag
    (let ((o (make-overlay from to nil 'front-advance)))
      (overlay-put o 'category 'allout-exposure-category)
      (overlay-put o 'evaporate t))
    (setq allout-this-command-hid-text t))
  (run-hook-with-args 'allout-exposure-change-functions from to flag))