Function: outline-flag-region@fix-for-org-fold

outline-flag-region@fix-for-org-fold is a byte-compiled function defined in org-compat.el.gz.

Signature

(outline-flag-region@fix-for-org-fold OLDFUN FROM TO FLAG &rest EXTRA)

Documentation

Run org-fold-region when in org-mode.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-compat.el.gz
;;;; outline-mode

;; Folding in outline-mode is not compatible with org-mode folding
;; anymore. Working around to avoid breakage of external packages
;; assuming the compatibility.
(define-advice outline-flag-region (:around (oldfun from to flag &rest extra) fix-for-org-fold)
  "Run `org-fold-region' when in org-mode."
  (if (derived-mode-p 'org-mode)
      (org-fold-region (max from (point-min)) (min to (point-max)) flag 'headline)
    ;; Apply EXTRA to avoid breakages if advised function definition
    ;; changes.
    (apply oldfun from to flag extra)))