Function: org-first-sibling-p

org-first-sibling-p is a byte-compiled function defined in org.el.gz.

Signature

(org-first-sibling-p)

Documentation

Is this heading the first child of its parents?

Source Code

;; Defined in /usr/src/emacs/lisp/org/org.el.gz
(defun org-first-sibling-p ()
  "Is this heading the first child of its parents?"
  (let ((re org-outline-regexp-bol)
	level l)
    (unless (org-at-heading-p t)
      (user-error "Not at a heading"))
    (setq level (funcall outline-level))
    (save-excursion
      (if (not (re-search-backward re nil t))
	  t
	(setq l (funcall outline-level))
	(< l level)))))