diff options
author | Bastien Guerry <bzg@altern.org> | 2014-01-03 16:01:30 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2014-01-03 16:01:30 +0100 |
commit | adb6e545c7ebd4914f1c36507c8ceeebc44d6997 (patch) | |
tree | 55fcd7903a185ed50e9fdf094574aeeed39bcfd2 | |
parent | f21150f1853180f63741083e427ef4e6bec1ea52 (diff) | |
download | org-mode-adb6e545c7ebd4914f1c36507c8ceeebc44d6997.tar.gz |
org-agenda.el (org-cmp-ts): Fix bug
* org-agenda.el (org-cmp-ts): Fix bug: interpret `late' as
`later than any date' instead of `later than today'.
Thank to Michael Crouch for reporting this and to Michael Hoffman for
providing the fix.
-rw-r--r-- | lisp/org-agenda.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 1765968..74ba0eb 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7003,7 +7003,7 @@ When TYPE is \"scheduled\", \"deadline\", \"timestamp\" or \"timestamp_ia\", compare within each of these type. When TYPE is the empty string, compare all timestamps without respect of their type." - (let* ((def (if org-sort-agenda-notime-is-late 9901 -1)) + (let* ((def (if org-sort-agenda-notime-is-late most-positive-fixnum -1)) (ta (or (and (string-match type (or (get-text-property 1 'type a) "")) (get-text-property 1 'ts-date a)) def)) (tb (or (and (string-match type (or (get-text-property 1 'type b) "")) |