From 203d5123bcd873c4756b538ce59f2226bd188c6a Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 3 Nov 2012 11:24:28 +0100 Subject: [PATCH] org-export: Fix `org-export-get-category' * contrib/lisp/org-export.el (org-export-get-category): `org-entry-properties' is over-zealous when it comes to "CATEGORY" property. Ignore its "???" return value, which only means it wasn't able to find an appropriate category. --- contrib/lisp/org-export.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el index 210cdd906..7afcd8def 100644 --- a/contrib/lisp/org-export.el +++ b/contrib/lisp/org-export.el @@ -3268,12 +3268,14 @@ fail, the fall-back value is \"???\"." (org-export-get-parent-headline blob)))) ;; Almost like `org-export-node-property', but we cannot trust ;; `plist-member' as every headline has a `:category' - ;; property, even if nil. + ;; property, would it be nil or equal to "???" (which has the + ;; same meaning). (let ((parent headline) value) (catch 'found (while parent (let ((category (org-element-property :category parent))) - (and category (throw 'found category))) + (and category (not (equal "???" category)) + (throw 'found category))) (setq parent (org-element-property :parent parent)))))) (org-element-map (plist-get info :parse-tree) 'keyword -- 2.11.4.GIT