From 3ca7add20a922a7e1090720c501babc02f6fac53 Mon Sep 17 00:00:00 2001
From: Carsten Dominik <carsten.dominik@gmail.com>
Date: Wed, 3 Jun 2009 17:15:16 +0200
Subject: [PATCH] Fix bug with time sorting
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reported by Jörg Hagmann.
---
 lisp/org.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index 5c333d458..742300264 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -6537,9 +6537,8 @@ WITH-CASE, the sorting considers case as well."
          nil
          (cond
           ((= dcst ?a) 'string<)
-          ((= dcst ?t) 'time-less-p)
           ((= dcst ?f) compare-func)
-          ((= dcst ?p) '<)
+          ((member dcst '(?p ?t ?s ?d ?c)) '<)
           (t nil)))))
     (run-hooks 'org-after-sorting-entries-or-items-hook)
     (message "Sorting entries...done")))