tec
/
org-glossary
1
0
Fork 0
Code Issues 1 Pull Requests Releases Activity

Allow fetching extra sources from a parse tree

This commit is contained in:
TEC 2022-07-24 03:14:43 +08:00
parent ab312e5a29
commit 5358fb0f69
Signed by: tec
GPG Key ID: 779591AFDB81F06C
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
org-glossary.el
View File

@ -1714,7 +1714,7 @@ This should only be run as an export hook."
(org-with-wide-buffer
(font-lock-flush))))
(defun org-glossary--get-extra-term-sources ()
(defun org-glossary--get-extra-term-sources (&optional parse-tree)
"Identify all applicable sources of extra terms for the current buffer.
This combines locations listed in `org-glossary-global-terms' with
local sources specified with \"#+glossary_sources: LOCATIONS\".
@ -1739,7 +1739,7 @@ location."
(org-babel-balanced-split
(or (mapconcat
#'identity
(org-element-map (org-element-parse-buffer) 'keyword
(org-element-map (or parse-tree (org-element-parse-buffer)) 'keyword
(lambda (keyword)
(and (equal "GLOSSARY_SOURCES" (org-element-property :key keyword))
(org-element-property :value keyword))))