tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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:
Nicolas Goaziou 2012-02-17 14:20:19 +01:00
parent cf87d15483
commit de0c86ffeb
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/lisp/org-export.el
View File

@ -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)