diff options
author | Bastien Guerry <bzg@altern.org> | 2014-05-22 21:15:01 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2014-05-22 21:15:01 +0200 |
commit | cece23b6646e0d6f275c85957297672d262c8ad3 (patch) | |
tree | 41771efb91f035e97c62904e9b4f7661cd06e963 | |
parent | 7d3b3997d3d67c3ef0834e45266dec1fa12cad5d (diff) | |
download | org-mode-cece23b6646e0d6f275c85957297672d262c8ad3.tar.gz |
org-agenda.el (org-cmp-ts): Fix call to `type'
* org-agenda.el (org-cmp-ts): Argument `type' is not optional.
Don't quote it.
-rw-r--r-- | lisp/org-agenda.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 6394fcb..7ae9841 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -6982,16 +6982,16 @@ The optional argument TYPE tells the agenda type." (cond ((< ta tb) -1) ((< tb ta) +1)))) -(defsubst org-cmp-ts (a b &optional type) +(defsubst org-cmp-ts (a b type) "Compare the timestamps values of entries A and B. 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 most-positive-fixnum -1)) - (ta (or (and (string-match type (or (get-text-property 1 'type a) "")) + (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) "")) + (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)))) |