summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2016-11-30 00:16:56 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2016-11-30 00:16:56 +0100
commitc3146209ec752d516502b0fab258534436b0908f (patch)
tree748a88c5a6435c47e35ef125b310b7e810b6f0a2
parentba06303016ef84ca21311201478393e695a9dc3f (diff)
downloadorg-mode-c3146209ec752d516502b0fab258534436b0908f.tar.gz
org-agenda: Fix priority for deadlines
* lisp/org-agenda.el (org-agenda-get-deadlines): Fix priority computation. Reported-by: Matt Lundin <mdl@imapmail.org> <http://permalink.gmane.org/gmane.emacs.orgmode/110519>
-rw-r--r--lisp/org-agenda.el15
1 files changed, 6 insertions, 9 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index f7af31b..024773b 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -6165,16 +6165,13 @@ specification like [h]h:mm."
'level level
'ts-date deadline
'priority
- ;; Adjust priority according to the associated
- ;; deadline of the item. Past-due deadlines get
- ;; increased priority.
- (let ((adjust (cond ((< current today) diff)
- ((> current today) (- repeat current))
- ;; Since a nil SHOW-ALL prefer
- ;; repeated deadlines, set
- ;; adjustment accordingly.
+ ;; Adjust priority to today reminders about deadlines.
+ ;; Overdue deadlines get the highest priority
+ ;; increase, then imminent deadlines and eventually
+ ;; more distant deadlines.
+ (let ((adjust (cond ((not today?) 0)
((and (not show-all) (= repeat current)) 0)
- (t diff))))
+ (t (- diff)))))
(+ adjust (org-get-priority item)))
'todo-state todo-state
'type (if upcoming? "upcoming-deadline" "deadline")