Browse Source

Merge branch 'bugfix'

Nicolas Goaziou 3 years ago
parent
commit
7d769615fd
1 changed files with 2 additions and 1 deletions
  1. 2 1
      lisp/oc-csl.el

+ 2 - 1
lisp/oc-csl.el

@@ -506,7 +506,8 @@ INFO is the export state, as a property list."
     ;; a footnote, but isn't yet.
     ;; a footnote, but isn't yet.
     (when (and (not footnote) (org-cite-csl--note-style-p info))
     (when (and (not footnote) (org-cite-csl--note-style-p info))
       (org-cite-adjust-note citation info)
       (org-cite-adjust-note citation info)
-      (org-cite-wrap-citation citation info))
+      (org-cite-wrap-citation citation info)
+      (setq footnote (org-element-lineage citation '(footnote-reference))))
     ;; Return structure.
     ;; Return structure.
     (apply #'citeproc-citation-create
     (apply #'citeproc-citation-create
            `(:note-index
            `(:note-index