* contrib/lisp/ox-taskjuggler.el (org-taskjuggler--build-task): Fix the check whether a node has no children
A milestone should only (automatically) be inserted if a node has no children and no duration defined. --- contrib/lisp/ox-taskjuggler.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/contrib/lisp/ox-taskjuggler.el b/contrib/lisp/ox-taskjuggler.el index 88641b8..9146dfd 100644 --- a/contrib/lisp/ox-taskjuggler.el +++ b/contrib/lisp/ox-taskjuggler.el @@ -696,14 +696,14 @@ a unique id will be associated to it." (effort (org-element-property :EFFORT task)) (milestone (or (org-element-property :MILESTONE task) - (and (org-element-map (org-element-contents task) 'headline - 'identity info t) ; Has task any child? - (not (or effort - (org-element-property :LENGTH task) - (org-element-property :DURATION task) - (and (org-taskjuggler-get-start task) - (org-taskjuggler-get-end task)) - (org-element-property :PERIOD task)))))) + (not (or (org-element-map (org-element-contents task) 'headline + 'identity info t) ; Has task any child? + effort + (org-element-property :LENGTH task) + (org-element-property :DURATION task) + (and (org-taskjuggler-get-start task) + (org-taskjuggler-get-end task)) + (org-element-property :PERIOD task))))) (priority (let ((pri (org-element-property :priority task))) (and pri -- 1.7.10.4 -- Christian Egli Swiss Library for the Blind, Visually Impaired and Print Disabled Grubenstrasse 12, CH-8045 Zürich, Switzerland ----- Die neue Online-Bibliothek der SBS: Mit wenigen Klicks zum Buch unter http://online.sbs.ch