Explorar el Código

Merge branch 'maint'

Nicolas Goaziou hace 12 años
padre
commit
f3ae90c6c5
Se han modificado 1 ficheros con 3 adiciones y 1 borrados
  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