mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-24 19:02:52 +00:00
org-export: Fix small bug in `org-export-get-genealogy'
* contrib/lisp/org-export.el (org-export-get-genealogy): Return `:genealgy' value, not the full communication channel.
This commit is contained in:
parent
cf87d15483
commit
de0c86ffeb
|
@ -3071,7 +3071,9 @@ used as a communication channel."
|
||||||
(catch 'exit
|
(catch 'exit
|
||||||
(org-element-map
|
(org-element-map
|
||||||
(plist-get info :parse-tree) (car blob)
|
(plist-get info :parse-tree) (car blob)
|
||||||
(lambda (el local) (when (equal el blob) (throw 'exit local)))
|
(lambda (el local)
|
||||||
|
(when (equal el blob)
|
||||||
|
(throw 'exit (plist-get local :genealogy))))
|
||||||
info)))))
|
info)))))
|
||||||
|
|
||||||
(defun org-export-get-parent-headline (blob info)
|
(defun org-export-get-parent-headline (blob info)
|
||||||
|
|
Loading…
Reference in a new issue