From 26a2811b06a5916a66d101b10238552db12ff6e7 Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Sat, 22 Oct 2022 14:32:17 +0800 Subject: [PATCH] org-cite-basic-export-bibliography: Skip missing bibliography keys * lisp/oc-basic.el (org-cite-basic-export-bibliography): Ignore citation keys that are not present in bibliography. Previously, an error was thrown. --- lisp/oc-basic.el | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/lisp/oc-basic.el b/lisp/oc-basic.el index f1b7c8263..3ef7a37e3 100644 --- a/lisp/oc-basic.el +++ b/lisp/oc-basic.el @@ -713,15 +713,17 @@ KEYS is the list of cited keys, as strings. STYLE is the expected bibliography style, as a string. BACKEND is the export back-end, as a symbol. INFO is the export state, as a property list." (mapconcat - (lambda (k) - (let ((entry (org-cite-basic--get-entry k info))) - (org-export-data - (org-cite-make-paragraph - (and (org-export-derived-backend-p backend 'latex) - (org-export-raw-string "\\noindent\n")) - (org-cite-basic--print-entry entry style info)) - info))) - (org-cite-basic--sort-keys keys info) + (lambda (entry) + (org-export-data + (org-cite-make-paragraph + (and (org-export-derived-backend-p backend 'latex) + (org-export-raw-string "\\noindent\n")) + (org-cite-basic--print-entry entry style info)) + info)) + (delq nil + (mapcar + (lambda (k) (org-cite-basic--get-entry k info)) + (org-cite-basic--sort-keys keys info))) "\n"))