Function: rst-new-preferred-hdr

rst-new-preferred-hdr is a byte-compiled function defined in rst.el.gz.

Signature

(rst-new-preferred-hdr SEEN PREV)

Documentation

Return a new, preferred rst-Hdr different from all in SEEN.

PREV is the previous rst-Hdr in the buffer. If given the search starts after this entry. Return nil if no new preferred rst-Hdr can be found.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/rst.el.gz
(defun rst-new-preferred-hdr (seen prev)
  ;; testcover: ok.
  "Return a new, preferred `rst-Hdr' different from all in SEEN.
PREV is the previous `rst-Hdr' in the buffer.  If given the
search starts after this entry.  Return nil if no new preferred
`rst-Hdr' can be found."
  ;; All preferred adornments are candidates.
  (let ((candidates
	 (append
	  (if prev
	      ;; Start searching after the level of the previous adornment.
	      (cdr (rst-Hdr-member-ado prev (rst-Hdr-preferred-adornments))))
	  (rst-Hdr-preferred-adornments))))
    (cl-find-if (lambda (cand)
                  (not (rst-Hdr-member-ado cand seen)))
		candidates)))