tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-agenda: Tiny stylistic change 

* lisp/org-agenda.el (org-agenda-get-deadlines): Tiny stylistic
  change.
This commit is contained in:
Nicolas Goaziou 2012-10-28 13:53:29 +01:00
parent 796fca3f18
commit a729fae0f7
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
lisp/org-agenda.el
View File

@ -5809,7 +5809,7 @@ See also the user option `org-agenda-clock-consistency-checks'."
(abbreviate-file-name buffer-file-name)))) (abbreviate-file-name buffer-file-name))))
(regexp org-deadline-time-regexp) (regexp org-deadline-time-regexp)
(todayp (org-agenda-todayp date)) ; DATE bound by calendar (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 d2 diff dfrac wdays pos pos1 category category-pos level
tags suppress-prewarning ee txt head face s todo-state tags suppress-prewarning ee txt head face s todo-state
show-all upcomingp donep timestr warntime) show-all upcomingp donep timestr warntime)
@ -5836,21 +5836,21 @@ See also the user option `org-agenda-clock-consistency-checks'."
(and (string-match (and (string-match
org-scheduled-time-regexp item) org-scheduled-time-regexp item)
(match-string 1 item))))))) (match-string 1 item)))))))
(if ds (cond
;; The current item has a scheduled date (in ds), ((not ds) nil)
;; so evaluate its prewarning lead time. ;; The current item has a scheduled date (in ds), so
(cond ;; evaluate its prewarning lead time.
((integerp ((integerp org-agenda-skip-deadline-prewarning-if-scheduled)
org-agenda-skip-deadline-prewarning-if-scheduled) ;; Use global prewarning-restart lead time.
;; Use globally-customized prewarning-restart lead time. org-agenda-skip-deadline-prewarning-if-scheduled)
org-agenda-skip-deadline-prewarning-if-scheduled) ((eq org-agenda-skip-deadline-prewarning-if-scheduled
((eq org-agenda-skip-deadline-prewarning-if-scheduled 'pre-scheduled)
'pre-scheduled) ;; Set prewarning to no earlier than scheduled.
;; Set prewarning to no earlier than scheduled. (min (- d2 (org-time-string-to-absolute
(min (- d2 (org-time-string-to-absolute ds d1 'past show-all (current-buffer) pos))
ds d1 'past show-all (current-buffer) pos)) org-deadline-warning-days))
org-deadline-warning-days)) ;; Set prewarning to deadline.
(t 0))))) ;; Set prewarning to deadline. (t 0))))
(setq wdays (if suppress-prewarning (setq wdays (if suppress-prewarning
(let ((org-deadline-warning-days suppress-prewarning)) (let ((org-deadline-warning-days suppress-prewarning))
(org-get-wdays s)) (org-get-wdays s))