Function: outline-toggle-children@fix-for-org-fold

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

Signature

(outline-toggle-children@fix-for-org-fold OLDFUN &rest EXTRA)

Documentation

Run org-fold-hide-sublevels when in org-mode.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-compat.el.gz
(define-advice outline-toggle-children (:around (oldfun &rest extra) fix-for-org-fold)
  "Run `org-fold-hide-sublevels' when in org-mode."
  (if (derived-mode-p 'org-mode)
      (save-excursion
        (org-back-to-heading)
        (if (not (org-fold-folded-p (line-end-position)))
            (org-fold-hide-subtree)
          (org-fold-show-children)
          (org-fold-show-entry 'hide-drawers)))
    ;; Apply EXTRA to avoid breakages if advised function definition
    ;; changes.
    (apply oldfun extra)))