From 1ab9b17ee8154d8b5d7794cc28b367bf6960c338 Mon Sep 17 00:00:00 2001 From: David Maus Date: Mon, 16 Aug 2010 21:06:12 +0200 Subject: [PATCH] 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. --- lisp/org-agenda.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 5bc1c8fd2..ad818358b 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -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) -- 2.11.4.GIT