diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-12-15 22:16:19 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-12-15 22:16:19 +0100 |
commit | a1f516f8a5082de84f7929960e004dbb0f0fdfa5 (patch) | |
tree | 9afbf7ec17b575b025a6a04e4ea63ae0c8a79140 | |
parent | 3e60cb900d3e4bd7f8c8701e687d3304d6a4fe79 (diff) | |
download | org-mode-a1f516f8a5082de84f7929960e004dbb0f0fdfa5.tar.gz |
org-agenda: Fix "Wrong type argument: number-or-marker-p"
* lisp/org-agenda.el (org-agenda-get-deadlines):
(org-agenda-get-scheduled): Make sure deadline and schedule are
a number and not a string.
Reported-by: Jeffrey DeLeo <JeffreyDeLeo@gmail.com>
<http://permalink.gmane.org/gmane.emacs.orgmode/110837>
-rw-r--r-- | lisp/org-agenda.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index da748af..ce16473 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -6098,7 +6098,9 @@ specification like [h]h:mm." ((eq org-agenda-skip-deadline-prewarning-if-scheduled 'pre-scheduled) ;; Set pre-warning to no earlier than SCHEDULED. - (min (- deadline scheduled) org-deadline-warning-days)) + (min (- deadline + (org-agenda--timestamp-to-absolute scheduled)) + org-deadline-warning-days)) ;; Set pre-warning to deadline. (t 0)))) (wdays (if suppress-prewarning @@ -6265,10 +6267,10 @@ scheduled items with an hour specification like [h]h:mm." (- org-agenda-skip-scheduled-delay-if-deadline)) ((eq org-agenda-skip-scheduled-delay-if-deadline 'post-deadline) - ;; Set delay to no later than DEADLINE. If - ;; DEADLINE has a repeater, compare last schedule - ;; repeat and last deadline repeat. - (min (- schedule deadline) org-scheduled-delay-days)) + ;; Set delay to no later than DEADLINE. + (min (- schedule + (org-agenda--timestamp-to-absolute deadline)) + org-scheduled-delay-days)) (t 0)))) (ddays (cond |