From ab312e5a2920b5bbd78163eaf651d53b2e615a78 Mon Sep 17 00:00:00 2001 From: TEC Date: Sun, 24 Jul 2022 03:14:05 +0800 Subject: [PATCH] Merge multiple #+glossary_sources in a buffer --- org-glossary.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/org-glossary.el b/org-glossary.el index 7b51eeb..fcd7420 100644 --- a/org-glossary.el +++ b/org-glossary.el @@ -1737,11 +1737,13 @@ location." (concat fq-source " :only-contents t")) (t fq-source)))) (org-babel-balanced-split - (or (org-element-map (org-element-parse-buffer) 'keyword - (lambda (keyword) - (and (equal "GLOSSARY_SOURCES" (org-element-property :key keyword)) - (org-element-property :value keyword))) - nil t) + (or (mapconcat + #'identity + (org-element-map (org-element-parse-buffer) 'keyword + (lambda (keyword) + (and (equal "GLOSSARY_SOURCES" (org-element-property :key keyword)) + (org-element-property :value keyword)))) + " ") "") ?\s))))