From 327d23f9bd13cd8c9f9d9a9c1f0778d0dd446aac Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Thu, 30 Apr 2009 16:02:01 +0200 Subject: [PATCH] Sorting: Make priority sorting work under XEmacs The XEmacs default sorting function does not work correctly with characters, probably because characters in XEmacs are not integers. --- lisp/ChangeLog | 3 +++ lisp/org.el | 1 + 2 files changed, 4 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 45397b4a5..33cbfdece 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2009-04-30 Carsten Dominik + * org.el (org-sort-entries-or-items): Explicit sorting function + for priorities, needed for XEmacs compatibility. + * org-remember.el (org-remember-apply-template): Improve auto-save behavior. diff --git a/lisp/org.el b/lisp/org.el index d836a9476..0e9eb6a60 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -6248,6 +6248,7 @@ WITH-CASE, the sorting considers case as well." ((= dcst ?a) 'string<) ((= dcst ?t) 'time-less-p) ((= dcst ?f) compare-func) + ((= dcst ?p) '<) (t nil))))) (message "Sorting entries...done"))) -- 2.11.4.GIT