|
@@ -1141,17 +1141,14 @@ and must return either a string, an object, or a secondary string."
|
|
|
|
|
|
|
|
|
;;; Internal interface with fontification (activate capability)
|
|
|
-(defun org-cite-fontify-default (datum)
|
|
|
- "Fontify DATUM with `org-cite' and `org-cite-key' face.
|
|
|
-DATUM is a citation object, or a citation reference. In any case, apply
|
|
|
-`org-cite' face on the whole citation, and `org-cite-key' face on each key."
|
|
|
- (let* ((cite (if (eq 'citation-reference (org-element-type datum))
|
|
|
- (org-element-property :parent datum)
|
|
|
- datum))
|
|
|
- (beg (org-element-property :begin cite))
|
|
|
- (end (org-with-point-at (org-element-property :end cite)
|
|
|
- (skip-chars-backward " \t")
|
|
|
- (point))))
|
|
|
+(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-property :begin cite))
|
|
|
+ (end (org-with-point-at (org-element-property :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))
|