diff options
author | Bastien Guerry <bzg@altern.org> | 2013-01-07 12:33:57 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-01-07 12:33:57 +0100 |
commit | 8f749c983493a010c4ae0437975c8cb63017c3f4 (patch) | |
tree | 950ffbf3e3bc784d7a160dda9be75fbcbf453813 | |
parent | c4d4bf3833ecdfffd603aa7555eca2cea45aff6e (diff) | |
download | org-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.el | 4 |
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) |