diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-10-28 13:53:29 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-10-28 13:53:29 +0100 |
commit | a729fae0f720005ef8146fe65a116965a40d8e4e (patch) | |
tree | 972c6053dde9bbb4d6e2b0e76468fdd081d4567e | |
parent | 796fca3f18e6aab9f5d73f47e284b4e08fcc2596 (diff) | |
download | org-mode-a729fae0f720005ef8146fe65a116965a40d8e4e.tar.gz |
org-agenda: Tiny stylistic change
* lisp/org-agenda.el (org-agenda-get-deadlines): Tiny stylistic
change.
-rw-r--r-- | lisp/org-agenda.el | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index bac51ce..7e1d835 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -5809,7 +5809,7 @@ See also the user option `org-agenda-clock-consistency-checks'." (abbreviate-file-name buffer-file-name)))) (regexp org-deadline-time-regexp) (todayp (org-agenda-todayp date)) ; DATE bound by calendar - (d1 (calendar-absolute-from-gregorian date)) ; DATE bound by calendar + (d1 (calendar-absolute-from-gregorian date)) ; DATE bound by calendar d2 diff dfrac wdays pos pos1 category category-pos level tags suppress-prewarning ee txt head face s todo-state show-all upcomingp donep timestr warntime) @@ -5836,21 +5836,21 @@ See also the user option `org-agenda-clock-consistency-checks'." (and (string-match org-scheduled-time-regexp item) (match-string 1 item))))))) - (if ds - ;; The current item has a scheduled date (in ds), - ;; so evaluate its prewarning lead time. - (cond - ((integerp - org-agenda-skip-deadline-prewarning-if-scheduled) - ;; Use globally-customized prewarning-restart lead time. - org-agenda-skip-deadline-prewarning-if-scheduled) - ((eq org-agenda-skip-deadline-prewarning-if-scheduled - 'pre-scheduled) - ;; Set prewarning to no earlier than scheduled. - (min (- d2 (org-time-string-to-absolute - ds d1 'past show-all (current-buffer) pos)) - org-deadline-warning-days)) - (t 0))))) ;; Set prewarning to deadline. + (cond + ((not ds) nil) + ;; The current item has a scheduled date (in ds), so + ;; evaluate its prewarning lead time. + ((integerp org-agenda-skip-deadline-prewarning-if-scheduled) + ;; Use global prewarning-restart lead time. + org-agenda-skip-deadline-prewarning-if-scheduled) + ((eq org-agenda-skip-deadline-prewarning-if-scheduled + 'pre-scheduled) + ;; Set prewarning to no earlier than scheduled. + (min (- d2 (org-time-string-to-absolute + ds d1 'past show-all (current-buffer) pos)) + org-deadline-warning-days)) + ;; Set prewarning to deadline. + (t 0)))) (setq wdays (if suppress-prewarning (let ((org-deadline-warning-days suppress-prewarning)) (org-get-wdays s)) |