mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-16 14:16:26 +00:00
Code Releases Activity

org-export: Fix small bug in `org-export-get-genealogy'

Browse source 
* 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)