mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-22 07:09:47 +00:00
Code

oc: Fix `org-cite-fontify-default' docstring and simplify code

Browse Source 
* lisp/oc.el (org-cite-fontify-default): We don't need to assume
activate processor may be used on a citation reference: that will not
happen.
This commit is contained in:
Nicolas Goaziou 2021-11-24 22:50:09 +01:00
parent 308f4cb570
commit 30a6126bb9
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/oc.el
View File

@ -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))