Function: outline-get-last-sibling

outline-get-last-sibling is a byte-compiled function defined in outline.el.gz.

Signature

(outline-get-last-sibling)

Documentation

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

If there is no such heading, return nil.

Source Code

;; Defined in /usr/src/emacs/lisp/outline.el.gz
(defun outline-get-last-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-visible-heading 1)
    (when (and (/= (point) opoint) (outline-on-heading-p))
      (while (and (> (funcall outline-level) level)
		  (not (bobp)))
	(outline-previous-visible-heading 1))
      (if (< (funcall outline-level) level)
	  nil
        (point)))))