mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-05 00:12:56 +00:00
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.
This commit is contained in:
parent
c76d722fc4
commit
348b4f3a8a
|
@ -4291,7 +4291,7 @@ in `org-agenda-text-search-extra-files'."
|
||||||
""
|
""
|
||||||
(buffer-substring-no-properties
|
(buffer-substring-no-properties
|
||||||
beg1 (point-at-eol))
|
beg1 (point-at-eol))
|
||||||
category tags))
|
category tags t))
|
||||||
(org-add-props txt props
|
(org-add-props txt props
|
||||||
'org-marker marker 'org-hd-marker marker
|
'org-marker marker 'org-hd-marker marker
|
||||||
'org-todo-regexp org-todo-regexp
|
'org-todo-regexp org-todo-regexp
|
||||||
|
@ -5010,7 +5010,7 @@ the documentation of `org-diary'."
|
||||||
txt (org-trim
|
txt (org-trim
|
||||||
(buffer-substring (match-beginning 2) (match-end 0)))
|
(buffer-substring (match-beginning 2) (match-end 0)))
|
||||||
tags (org-get-tags-at (point))
|
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))
|
priority (1+ (org-get-priority txt))
|
||||||
todo-state (org-get-todo-state))
|
todo-state (org-get-todo-state))
|
||||||
(org-add-props txt props
|
(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
|
(setq txt (org-agenda-format-item
|
||||||
(if inactivep org-agenda-inactive-leader nil)
|
(if inactivep org-agenda-inactive-leader nil)
|
||||||
head category tags timestr
|
head category tags timestr
|
||||||
remove-re)))
|
remove-re t)))
|
||||||
(setq priority (org-get-priority txt))
|
(setq priority (org-get-priority txt))
|
||||||
(org-add-props txt props
|
(org-add-props txt props
|
||||||
'org-marker marker 'org-hd-marker hdmarker)
|
'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 ">"))
|
(concat "<" start-time ">"))
|
||||||
((= d2 d0)
|
((= d2 d0)
|
||||||
(concat "<" end-time ">")))
|
(concat "<" end-time ">")))
|
||||||
remove-re))))
|
remove-re t))))
|
||||||
(org-add-props txt props
|
(org-add-props txt props
|
||||||
'org-marker marker 'org-hd-marker hdmarker
|
'org-marker marker 'org-hd-marker hdmarker
|
||||||
'type "block" 'date date
|
'type "block" 'date date
|
||||||
|
|
Loading…
Reference in a new issue