summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2012-09-23 10:16:12 +0200
committerBastien Guerry <bzg@altern.org>2012-09-23 10:16:12 +0200
commit348b4f3a8a5c65c7d41d2835d1159c352e79eb6d (patch)
tree2f73caf2e439b318f662aa0c93deaf50dc5c32ec
parentc76d722fc4cf272ccc5538ab1ec22f63e20931df (diff)
downloadorg-mode-348b4f3a8a5c65c7d41d2835d1159c352e79eb6d.tar.gz
org-agenda.el: Fix bug about 'time-up sorting strategy not being honored
* org-agenda.el (org-search-view, org-agenda-get-todos) (org-agenda-get-timestamps, org-agenda-get-blocks): Use the dotime parameter of `org-agenda-format-item' so that 'time-up and 'time-down agenda sorting strategies are handled correctly. Thanks to Richard Lawrence who reported this.
-rwxr-xr-xlisp/org-agenda.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 2152208..58bc259 100755
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -4291,7 +4291,7 @@ in `org-agenda-text-search-extra-files'."
""
(buffer-substring-no-properties
beg1 (point-at-eol))
- category tags))
+ category tags t))
(org-add-props txt props
'org-marker marker 'org-hd-marker marker
'org-todo-regexp org-todo-regexp
@@ -5010,7 +5010,7 @@ the documentation of `org-diary'."
txt (org-trim
(buffer-substring (match-beginning 2) (match-end 0)))
tags (org-get-tags-at (point))
- txt (org-agenda-format-item "" txt category tags)
+ txt (org-agenda-format-item "" txt category tags t)
priority (1+ (org-get-priority txt))
todo-state (org-get-todo-state))
(org-add-props txt props
@@ -5189,7 +5189,7 @@ This function is invoked if `org-agenda-todo-ignore-deadlines',
(setq txt (org-agenda-format-item
(if inactivep org-agenda-inactive-leader nil)
head category tags timestr
- remove-re)))
+ remove-re t)))
(setq priority (org-get-priority txt))
(org-add-props txt props
'org-marker marker 'org-hd-marker hdmarker)
@@ -5847,7 +5847,7 @@ FRACTION is what fraction of the head-warning time has passed."
(concat "<" start-time ">"))
((= d2 d0)
(concat "<" end-time ">")))
- remove-re))))
+ remove-re t))))
(org-add-props txt props
'org-marker marker 'org-hd-marker hdmarker
'type "block" 'date date