From de0c86ffeb179439543621fd5e7f8a3c861a35eb Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Fri, 17 Feb 2012 14:20:19 +0100 Subject: [PATCH] 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. --- contrib/lisp/org-export.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el index 72afa9d52..47bf32450 100644 --- a/contrib/lisp/org-export.el +++ b/contrib/lisp/org-export.el @@ -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)