Function: org-fold--reveal-headline-at-point

org-fold--reveal-headline-at-point is a byte-compiled function defined in org-fold.el.gz.

Signature

(org-fold--reveal-headline-at-point)

Documentation

Reveal header line and empty contents inside.

Reveal the header line and, if present, also reveal its contents, when the contents consists of blank lines.

Assume that point is located at the header line.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-fold.el.gz
(defun org-fold--reveal-headline-at-point ()
  "Reveal header line and empty contents inside.
Reveal the header line and, if present, also reveal its contents, when
the contents consists of blank lines.

Assume that point is located at the header line."
  (org-with-wide-buffer
   (forward-line 0)
   (org-fold-region
    (max (point-min) (1- (point)))
    (let ((endl (line-end-position)))
      (save-excursion
        (goto-char endl)
        (skip-chars-forward "\n\t\r ")
        ;; Unfold blank lines after newly inserted headline.
        (if (equal (point)
                   (save-excursion
                     (goto-char endl)
                     (org-end-of-subtree t)
                     (skip-chars-forward "\n\t\r ")))
            (point)
          endl)))
    nil 'headline)))