Function: rst-font-lock-handle-adornment-matcher
rst-font-lock-handle-adornment-matcher is a byte-compiled function
defined in rst.el.gz.
Signature
(rst-font-lock-handle-adornment-matcher LIMIT)
Documentation
Set the match found earlier if match were found.
Match has been found by
rst-font-lock-handle-adornment-pre-match-form the first time
called or no match is found. Return non-nil if match was found.
Called as a MATCHER in the sense of font-lock-keywords.
_LIMIT is not used but mandated by the caller.
Source Code
;; Defined in /usr/src/emacs/lisp/textmodes/rst.el.gz
(defun rst-font-lock-handle-adornment-matcher (_limit)
"Set the match found earlier if match were found.
Match has been found by
`rst-font-lock-handle-adornment-pre-match-form' the first time
called or no match is found. Return non-nil if match was found.
Called as a MATCHER in the sense of `font-lock-keywords'.
_LIMIT is not used but mandated by the caller."
(let ((match rst-font-lock-adornment-match))
;; May run only once - enforce this.
(setq rst-font-lock-adornment-match nil)
(when match
(set-match-data match)
(goto-char (match-end 0))
(put-text-property (match-beginning 0) (match-end 0)
'font-lock-multiline t)
t)))