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

lisp-font-lock-syntactic-face-function is a byte-compiled function defined in lisp-mode.el.gz.

Signature

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

Documentation

Return syntactic face function for the position represented by STATE.

STATE is a parse-partial-sexp state, and the returned function is the Lisp font lock syntactic face function.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/lisp-mode.el.gz
(defun lisp-font-lock-syntactic-face-function (state)
  "Return syntactic face function for the position represented by STATE.
STATE is a `parse-partial-sexp' state, and the returned function is the
Lisp font lock syntactic face function."
  (if (nth 3 state)
      ;; This might be a (doc)string or a |...| symbol.
      (let ((startpos (nth 8 state)))
        (if (eq (char-after startpos) ?|)
            ;; This is not a string, but a |...| symbol.
            nil
          (let ((listbeg (nth 1 state)))
            (if (or (lisp-string-in-doc-position-p listbeg startpos)
                    (lisp-string-after-doc-keyword-p listbeg startpos))
                font-lock-doc-face
              font-lock-string-face))))
    font-lock-comment-face))