From 86ca53fe6fe11ed40ccad4e2601e8ea697e23d33 Mon Sep 17 00:00:00 2001 From: Jambunathan K Date: Mon, 19 Jul 2010 01:40:57 +0000 Subject: [PATCH] Agenda view invokes custom sort routine even if not configured to do so --- lisp/org-agenda.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 1314eb25c..f34f45d19 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -5312,8 +5312,9 @@ HH:MM." (alpha-up (and (org-em 'alpha-up 'alpha-down ss) (org-cmp-alpha a b))) (alpha-down (if alpha-up (- alpha-up) nil)) + (need-user-cmp (org-em 'user-defined-up 'user-defined-down ss)) user-defined-up user-defined-down) - (if (and org-agenda-cmp-user-defined + (if (and need-user-cmp org-agenda-cmp-user-defined (functionp org-agenda-cmp-user-defined)) (setq user-defined-up (funcall org-agenda-cmp-user-defined a b)