From 943b070b7e0f2b6d0bed261f831589fb918c214f Mon Sep 17 00:00:00 2001 Message-Id: <943b070b7e0f2b6d0bed261f831589fb918c214f.1666420664.git.yantar92@posteo.net> 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 @@ (defun org-cite-basic-export-bibliography (keys _files style _props backend info 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")) -- 2.35.1