summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-01-07 12:33:57 +0100
committerBastien Guerry <bzg@altern.org>2013-01-07 12:33:57 +0100
commit8f749c983493a010c4ae0437975c8cb63017c3f4 (patch)
tree950ffbf3e3bc784d7a160dda9be75fbcbf453813
parentc4d4bf3833ecdfffd603aa7555eca2cea45aff6e (diff)
downloadorg-mode-8f749c983493a010c4ae0437975c8cb63017c3f4.tar.gz
org-depend.el (org-depend-trigger-todo): Refresh effort text properties
* org-depend.el (org-depend-trigger-todo): Refresh effort text properties. Do not use `org-get-effort' for getting the effort property value.
-rw-r--r--contrib/lisp/org-depend.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/contrib/lisp/org-depend.el b/contrib/lisp/org-depend.el
index 0ca5819..81402b4 100644
--- a/contrib/lisp/org-depend.el
+++ b/contrib/lisp/org-depend.el
@@ -205,6 +205,8 @@ This does two different kinds of triggers:
property is seen as an entry id. Org-mode finds the entry with the
corresponding ID property and switches it to the state TODO as well."
+ ;; Refresh the effort text properties
+ (org-refresh-effort-properties)
;; Get information from the plist
(let* ((type (plist-get change-plist :type))
(pos (plist-get change-plist :position))
@@ -268,7 +270,7 @@ This does two different kinds of triggers:
(tags (match-string 5))
(priority (org-get-priority (or (match-string 3) "")))
(effort (when (or effort-up effort-down)
- (let ((effort (org-get-effort)))
+ (let ((effort (get-text-property (point) 'org-effort)))
(when effort
(org-duration-string-to-minutes effort))))))
(push (list (point) todo-kwd priority tags effort)