emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/org e4ee04e 2/2: Merge branch 'bugfix'


From: ELPA Syncer
Subject: [elpa] externals/org e4ee04e 2/2: Merge branch 'bugfix'
Date: Wed, 3 Nov 2021 12:57:23 -0400 (EDT)

branch: externals/org
commit e4ee04eeaef1fcaf9a21e73b7068bac9f149d445
Merge: 975462e 4e185be
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Commit: Nicolas Goaziou <mail@nicolasgoaziou.fr>

    Merge branch 'bugfix'
---
 lisp/oc-basic.el | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

diff --git a/lisp/oc-basic.el b/lisp/oc-basic.el
index a637cad..8fba708 100644
--- a/lisp/oc-basic.el
+++ b/lisp/oc-basic.el
@@ -619,15 +619,7 @@ export communication channel, as a property list."
       ;; When using this style on citations with multiple references,
       ;; use global affixes and ignore local ones.
       (`(,(or "numeric" "nb") . ,_)
-       (let* ((references (org-cite-get-references citation))
-              (prefix
-               (or (org-element-property :prefix citation)
-                   (and (= 1 (length references))
-                        (org-element-property :prefix (car references)))))
-              (suffix
-               (or (org-element-property :suffix citation)
-                   (and (= 1 (length references))
-                        (org-element-property :suffix (car references))))))
+       (pcase-let ((`(,prefix . ,suffix) (org-cite-main-affixes citation)))
          (org-export-data
           (org-cite-concat
            "(" prefix (org-cite-basic--citation-numbers citation info) suffix 
")")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]