浏览代码

Merge branch 'maint'

Nicolas Goaziou 11 年之前
父节点
当前提交
f3ae90c6c5
共有 1 个文件被更改,包括 3 次插入1 次删除
  1. 3 1
      contrib/lisp/ox-taskjuggler.el

+ 3 - 1
contrib/lisp/ox-taskjuggler.el

@@ -800,7 +800,9 @@ a unique id will be associated to it."
           (if (eq (org-element-property :todo-type task) 'done) "100"
             (org-element-property :COMPLETE task)))
          (depends (org-taskjuggler-resolve-dependencies task info))
-         (effort (org-element-property :EFFORT task))
+         (effort (let ((property
+			(intern (concat ":" (upcase org-effort-property)))))
+		   (org-element-property property task)))
          (milestone
           (or (org-element-property :MILESTONE task)
               (not (or (org-element-map (org-element-contents task) 'headline