diff options
author | Bastien Guerry <bzg@altern.org> | 2013-01-12 15:07:40 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-01-12 15:07:40 +0100 |
commit | 5e60f27a30fd1e592fdb622124fc3fc65c7d2990 (patch) | |
tree | 54beff80e86e376c9b92fe9b90bb6d6bba1fbfb7 | |
parent | a0ad34b8d432b513d476f44e5da5ae31f9039516 (diff) | |
download | org-mode-5e60f27a30fd1e592fdb622124fc3fc65c7d2990.tar.gz |
org-depend.el (org-depend-trigger-todo): Fix bug
* org-depend.el (org-depend-trigger-todo): Fix bug: use
`org-refresh-properties'. Also fix some compiler warnings.
Thanks to Karl Voit for reporting this.
-rw-r--r-- | contrib/lisp/org-depend.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/contrib/lisp/org-depend.el b/contrib/lisp/org-depend.el index 81402b4..cc446d1 100644 --- a/contrib/lisp/org-depend.el +++ b/contrib/lisp/org-depend.el @@ -206,14 +206,14 @@ This does two different kinds of triggers: corresponding ID property and switches it to the state TODO as well." ;; Refresh the effort text properties - (org-refresh-effort-properties) + (org-refresh-properties org-effort-property 'org-effort) ;; Get information from the plist (let* ((type (plist-get change-plist :type)) (pos (plist-get change-plist :position)) (from (plist-get change-plist :from)) (to (plist-get change-plist :to)) (org-log-done nil) ; IMPROTANT!: no logging during automatic trigger! - trigger triggers tr p1 kwd) + trigger triggers tr p1 kwd id) (catch 'return (unless (eq type 'todo-state-change) ;; We are only handling todo-state-change.... @@ -313,15 +313,15 @@ This does two different kinds of triggers: (cond (priority-up (or p1-gt (and (equal p1 p2) - (or (and effort-up e1-gt) - (and effort-down e1-lt))))) + (or (and effort-up e1-lt) + (and effort-down e2-gt))))) (priority-down (or p1-lt (and (equal p1 p2) - (or (and effort-up e1-gt) - (and effort-down e1-lt))))) + (or (and effort-up e1-lt) + (and effort-down e2-gt))))) (effort-up - (or e1-gt (and (equal e1 e2) p1-gt))) + (or e2-gt (and (equal e1 e2) p1-gt))) (effort-down (or e1-lt (and (equal e1 e2) p1-gt)))))))) (when items |