From 1f5edba4946bc77c66a6953214ebacb21134eb14 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Tue, 12 Feb 2013 09:02:33 +0100 Subject: [PATCH] org-agenda.el (org-agenda-get-deadlines, org-agenda-get-scheduled): Minor refactoring * org-agenda.el (org-agenda-get-deadlines) (org-agenda-get-scheduled): Minor refactoring. --- lisp/org-agenda.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index ded83f68e..e009e637b 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -6122,8 +6122,7 @@ See also the user option `org-agenda-clock-consistency-checks'." (member todo-state org-agenda-repeating-timestamp-show-all)) d2 (org-time-string-to-absolute - (match-string 1) d1 'past show-all - (current-buffer) pos) + s d1 'past show-all (current-buffer) pos) diff (- d2 d1)) (setq suppress-prewarning (let ((ds (and org-agenda-skip-deadline-prewarning-if-scheduled @@ -6266,8 +6265,7 @@ FRACTION is what fraction of the head-warning time has passed." (member todo-state org-agenda-repeating-timestamp-show-all)) d2 (org-time-string-to-absolute - (match-string 1) d1 'past show-all - (current-buffer) pos) + s d1 'past show-all (current-buffer) pos) diff (- d2 d1) warntime (get-text-property (point) 'org-appt-warntime)) (setq pastschedp (and todayp (< diff 0))) -- 2.11.4.GIT