Function: org-cite-fontify-default

org-cite-fontify-default is a byte-compiled function defined in oc.el.gz.

Signature

(org-cite-fontify-default CITE)

Documentation

Fontify CITE with org-cite and org-cite-key faces.

CITE is a citation object. The function applies org-cite face on the whole citation, and org-cite-key face on each key.

Source Code

;; Defined in /usr/src/emacs/lisp/org/oc.el.gz
;;; Internal interface with fontification (activate capability)
(defun org-cite-fontify-default (cite)
  "Fontify CITE with `org-cite' and `org-cite-key' faces.
CITE is a citation object.  The function applies `org-cite' face
on the whole citation, and `org-cite-key' face on each key."
  (let ((beg (org-element-begin cite))
        (end (org-with-point-at (org-element-end cite)
               (skip-chars-backward " \t")
               (point))))
    (add-text-properties beg end '(font-lock-multiline t))
    (add-face-text-property beg end 'org-cite)
    (dolist (reference (org-cite-get-references cite))
      (let ((boundaries (org-cite-key-boundaries reference)))
        (add-face-text-property (car boundaries) (cdr boundaries)
                                'org-cite-key)))))