forked from mirrors/org-mode
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
|
||||
(org-element-map
|
||||
(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)))))
|
||||
|
||||
(defun org-export-get-parent-headline (blob info)
|
||||
|
|
Loading…
Reference in New Issue