summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-01-12 15:08:05 +0100
committerBastien Guerry <bzg@altern.org>2013-01-12 15:08:05 +0100
commit6b7d2688d9a5a056b170054bb87aeb623808cb4e (patch)
tree3bf62d9a62a89c885871c2214f98e26381a04252
parent06c98ceb6068cc92e9308b749cd8eddef09ac743 (diff)
parent5e60f27a30fd1e592fdb622124fc3fc65c7d2990 (diff)
downloadorg-mode-6b7d2688d9a5a056b170054bb87aeb623808cb4e.tar.gz
Merge branch 'maint'
-rw-r--r--contrib/lisp/org-depend.el14
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