tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Merge branch 't/patch157'

Browse source
This commit is contained in:
John Wiegley 2010-07-28 02:26:57 -04:00
parent 24bb01afc8 86ca53fe6f
commit d91ce1490d
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/org-agenda.el
View file

@ -5315,8 +5315,9 @@ HH:MM."
(alpha-up (and (org-em 'alpha-up 'alpha-down ss) (alpha-up (and (org-em 'alpha-up 'alpha-down ss)
(org-cmp-alpha a b))) (org-cmp-alpha a b)))
(alpha-down (if alpha-up (- alpha-up) nil)) (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) 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)) (functionp org-agenda-cmp-user-defined))
(setq user-defined-up (setq user-defined-up
(funcall org-agenda-cmp-user-defined a b) (funcall org-agenda-cmp-user-defined a b)