Function: rst-font-lock-handle-adornment-pre-match-form

rst-font-lock-handle-adornment-pre-match-form is a byte-compiled function defined in rst.el.gz.

Signature

(rst-font-lock-handle-adornment-pre-match-form ADO ADO-END)

Documentation

Determine limit for adornments.

Determine all things necessary for font-locking section titles and transitions and put the result to rst-font-lock-adornment-match and rst-font-lock-adornment-level. ADO is the complete adornment matched. ADO-END is the point where ADO ends. Return the point where the whole adorned construct ends.

Called as a PRE-MATCH-FORM in the sense of font-lock-keywords.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/rst.el.gz
(defun rst-font-lock-handle-adornment-pre-match-form (ado ado-end)
  "Determine limit for adornments.
Determine all things necessary for font-locking section titles
and transitions and put the result to `rst-font-lock-adornment-match'
and `rst-font-lock-adornment-level'.  ADO is the complete adornment
matched.  ADO-END is the point where ADO ends.  Return the point
where the whole adorned construct ends.

Called as a PRE-MATCH-FORM in the sense of `font-lock-keywords'."
  (let ((ttl (rst-classify-adornment ado ado-end)))
    (if (not ttl)
	(setq rst-font-lock-adornment-level nil
	      rst-font-lock-adornment-match nil)
      (setq rst-font-lock-adornment-level
	    (rst-adornment-level (rst-Ttl-ado ttl)))
      (setq rst-font-lock-adornment-match (rst-Ttl-match ttl))
      (goto-char (rst-Ttl-get-beginning ttl))
      (rst-Ttl-get-end ttl))))