Function: org-get-previous-sibling

org-get-previous-sibling is a byte-compiled function defined in org.el.gz.

Signature

(org-get-previous-sibling)

Documentation

Move to previous heading of the same level, and return point.

If there is no such heading, return nil.

Aliases

org-get-last-sibling (obsolete since 9.4)

Source Code

;; Defined in /usr/src/emacs/lisp/org/org.el.gz
(defun org-get-previous-sibling ()
  "Move to previous heading of the same level, and return point.
If there is no such heading, return nil."
  (let ((opoint (point))
	(level (funcall outline-level)))
    (outline-previous-heading)
    (when (and (/= (point) opoint) (outline-on-heading-p t))
      (while (and (> (funcall outline-level) level)
		  (not (bobp)))
	(outline-previous-heading))
      (unless (< (funcall outline-level) level)
        (point)))))