Function: tuareg-font-lock-syntactic-face-function

tuareg-font-lock-syntactic-face-function is a natively compiled function defined in tuareg.el.

Signature

(tuareg-font-lock-syntactic-face-function STATE)

Documentation

font-lock-syntactic-face-function for Tuareg.

Source Code

;; Defined in /nix/store/6mbh851dhnag8f92qfrlh9ckldzwf6c6-emacs-packages-deps/share/emacs/site-lisp/elpa/tuareg-20260626.936/tuareg.el
(defun tuareg-font-lock-syntactic-face-function (state)
  "`font-lock-syntactic-face-function' for Tuareg."
  (if (nth 3 state)
      'font-lock-string-face
    (let ((start (nth 8 state)))
      (if (and (> (point-max) (+ start 2))
               (eq (char-after (+ start 2)) ?*)
               (not (eq (char-after (+ start 3)) ?*)))
          ;; This is a documentation comment
          (tuareg-fontify-doc-comment state)
        'font-lock-comment-face))))