Ver Fonte

Merge branch 'bugfix'

Nicolas Goaziou há 3 anos atrás
pai
commit
2e99997830
2 ficheiros alterados com 4 adições e 3 exclusões
  1. 1 2
      lisp/oc-csl.el
  2. 3 1
      lisp/oc.el

+ 1 - 2
lisp/oc-csl.el

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

+ 3 - 1
lisp/oc.el

@@ -872,7 +872,9 @@ When non-nil, the return value if the footnote container."
 INFO is the export state, as a property list.
 
 White space before the citation, if any, are removed.  The parse tree is
-modified by side-effect."
+modified by side-effect.
+
+Return newly created footnote object."
   (let ((footnote
          (list 'footnote-reference
                (list :label nil