mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

Delete excluded lines directly after call to sorting filter function. 

* org-agenda.el (org-finalize-agenda-entries): Delete excluded lines
directly after call to sorting filter function.
This commit is contained in:
David Maus 2010-08-16 21:06:12 +02:00
parent 244681c44f
commit 1ab9b17ee8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org-agenda.el
View File

@ -5224,8 +5224,8 @@ could bind the variable in the options section of a custom command.")
(if nosort
list
(when org-agenda-before-sorting-filter-function
(setq list (mapcar org-agenda-before-sorting-filter-function list)))
(delq nil (mapconcat 'identity (sort list 'org-entries-lessp) "\n"))))
(setq list (delq nil (mapcar org-agenda-before-sorting-filter-function list))))
(mapconcat 'identity (sort list 'org-entries-lessp) "\n")))
(defun org-agenda-highlight-todo (x)
(let ((org-done-keywords org-done-keywords-for-agenda)