浏览代码

Fix bug with time sorting

Reported by Jrg Hagmann.
Carsten Dominik 16 年之前
父节点
当前提交
3ca7add20a
共有 1 个文件被更改,包括 1 次插入2 次删除
  1. 1 2
      lisp/org.el

+ 1 - 2
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")))