Browse Source

Revert "Fix agenda display for late scheduled and deadline tasks"

This reverts commit 516640aff96b627d8ad412f6cdb436535600aff0.
Carsten Dominik 14 years ago
parent
commit
0dec8ac617
1 changed files with 10 additions and 11 deletions
  1. 10 11
      lisp/org.el

+ 10 - 11
lisp/org.el

@@ -14813,17 +14813,16 @@ If there is a specifyer for a cyclic time stamp, get the closest date to
 DAYNR.
 PREFER and SHOW-ALL are passed through to `org-closest-date'.
 the variable date is bound by the calendar when this is called."
-  (let ((today (calendar-absolute-from-gregorian (calendar-current-date))))
-    (cond
-     ((and daynr (string-match "\\`%%\\((.*)\\)" s))
-      (if (org-diary-sexp-entry (match-string 1 s) "" date)
-	  daynr
-	(+ daynr 1000)))
-     ((and daynr (not (eq daynr today)) (string-match "\\+[0-9]+[dwmy]" s))
-	   (org-closest-date s (if (and (boundp 'daynr) (integerp daynr)) daynr
-				 (time-to-days (current-time))) (match-string 0 s)
-				 prefer show-all))
-      (t (time-to-days (apply 'encode-time (org-parse-time-string s)))))))
+  (cond
+   ((and daynr (string-match "\\`%%\\((.*)\\)" s))
+    (if (org-diary-sexp-entry (match-string 1 s) "" date)
+	daynr
+      (+ daynr 1000)))
+   ((and daynr (string-match "\\+[0-9]+[dwmy]" s))
+    (org-closest-date s (if (and (boundp 'daynr) (integerp daynr)) daynr
+			  (time-to-days (current-time))) (match-string 0 s)
+			  prefer show-all))
+   (t (time-to-days (apply 'encode-time (org-parse-time-string s))))))
 
 (defun org-days-to-iso-week (days)
   "Return the iso week number."