From af8ee5fcf2c0e2acf0e7f60b22ffc05b384ebb09 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sun, 15 Jun 2014 10:43:17 +0200 Subject: [PATCH] org-agenda.el (org-cmp-ts): Fix agenda entry type checking * org-agenda.el (org-cmp-ts): Fix agenda entry type checking. Thanks to Trevor Murphy for reporting this. --- lisp/org-agenda.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 1f806ce23..df4ce9bb3 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -6993,10 +6993,12 @@ When TYPE is \"scheduled\", \"deadline\", \"timestamp\" or is the empty string, compare all timestamps without respect of their type." (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) "")) - (get-text-property 1 'ts-date b)) def))) + (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) "")) + (get-text-property 1 'ts-date b)) + def))) (cond ((< ta tb) -1) ((< tb ta) +1)))) -- 2.11.4.GIT