Function: org-fold-show-children

org-fold-show-children is an interactive and byte-compiled function defined in org-fold.el.gz.

Signature

(org-fold-show-children &optional LEVEL)

Documentation

Show all direct subheadings of this heading.

Prefix arg LEVEL is how many levels below the current level should be shown. If direct subheadings are deeper than LEVEL, they are still displayed.

Key Bindings

Aliases

org-show-children (obsolete since 9.6)

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-fold.el.gz
(defun org-fold-show-children (&optional level)
  "Show all direct subheadings of this heading.
Prefix arg LEVEL is how many levels below the current level should be
shown.  If direct subheadings are deeper than LEVEL, they are still
displayed."
  (interactive "p")
  (unless (org-before-first-heading-p)
    (save-excursion
      (org-with-limited-levels (org-back-to-heading t))
      (let* ((current-level (funcall outline-level))
             (parent-level current-level)
             (max-level (org-get-valid-level
                         parent-level
                         (if level (prefix-numeric-value level) 1)))
             (min-level-direct-child most-positive-fixnum)
             (end (save-excursion (org-end-of-subtree t t)))
             (regexp-fmt "^\\*\\{%d,%s\\}\\(?: \\|$\\)")
             ;; Make sure to skip inlinetasks.
             (re (format regexp-fmt
                         current-level
                         (cond
                          ((not (featurep 'org-inlinetask)) "")
                          (org-odd-levels-only (- (* 2 org-inlinetask-min-level)
                                                  3))
                          (t (1- org-inlinetask-min-level))))))
        ;; Display parent heading.
        (org-fold-heading nil)
        (forward-line)
        ;; Display children.  First child may be deeper than expected
        ;; MAX-LEVEL.  Since we want to display it anyway, adjust
        ;; MAX-LEVEL accordingly.
        (while (re-search-forward re end t)
          (setq current-level (funcall outline-level))
          (when (< current-level min-level-direct-child)
            (setq min-level-direct-child current-level
                  re (format regexp-fmt
                             parent-level
                             (max min-level-direct-child max-level))))
          (org-fold-heading nil))))))