ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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.
This commit is contained in:
Nicolas Goaziou 2012-11-03 11:24:28 +01:00
parent 686cc243ee
commit 203d5123bc
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3268,12 +3268,14 @@ fail, the fall-back value is \"???\"."
(org-export-get-parent-headline blob)))) (org-export-get-parent-headline blob))))
;; Almost like `org-export-node-property', but we cannot trust ;; Almost like `org-export-node-property', but we cannot trust
;; `plist-member' as every headline has a `:category' ;; `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) (let ((parent headline) value)
(catch 'found (catch 'found
(while parent (while parent
(let ((category (org-element-property :category 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)))))) (setq parent (org-element-property :parent parent))))))
(org-element-map (org-element-map
(plist-get info :parse-tree) 'keyword (plist-get info :parse-tree) 'keyword