From 2affa4d33355313f0a45de80fb4fb10618081529 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Mon, 26 May 2014 07:10:16 +0200 Subject: [PATCH] org.el (org-sort-entries): Improve TODO entries sorting * org.el (org-sort-entries): When sorting by TODO keywords, put TODO entries first, then entries without a TODO keyword, then DONE entries. Thanks to Eric Abrahamsen for triggering this. --- lisp/org.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index dc223b4ce..f2963b217 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -8904,8 +8904,9 @@ When sorting is done, call `org-after-sorting-entries-or-items-hook'." (or (org-entry-get nil property) "")) ((= dcst ?o) (if (looking-at org-complex-heading-regexp) - (- 9999 (length (member (match-string 2) - org-todo-keywords-1))))) + (let* ((m (match-string 2)) + (s (if (member m org-done-keywords) '- '+))) + (- 99 (funcall s (length (member m org-todo-keywords-1))))))) ((= dcst ?f) (if getkey-func (progn