diff options
| author | Sean Allred <code@seanallred.com> | 2015-01-16 00:54:32 -0500 |
|---|---|---|
| committer | Sean Allred <code@seanallred.com> | 2015-01-16 00:54:32 -0500 |
| commit | fe140f7891257890687ec6e3243d66f1aa95fc65 (patch) | |
| tree | cee86917c73725c7f8d3a33e0f4cf85ae76a1efb /sx-question-list.el | |
| parent | 22f86c35499f994f0eb7532b8eb27b0d990d889d (diff) | |
| parent | 6c4e7c6b95e8bd7d83e5d0f868d9fb3a70c7a974 (diff) | |
Merge pull request #228 from vermiculus/vermiculus/sort-answers
Customizable sorting; Fix #226. Generalization of #225.
Diffstat (limited to 'sx-question-list.el')
| -rw-r--r-- | sx-question-list.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/sx-question-list.el b/sx-question-list.el index 884f994..92b4c07 100644 --- a/sx-question-list.el +++ b/sx-question-list.el @@ -309,11 +309,10 @@ into consideration. ;; Add a setter to protect the value. :group 'sx-question-list) -(defun sx-question-list--date-more-recent-p (x y) - "Non-nil if tabulated-entry X is newer than Y." - (sx--< - sx-question-list-date-sort-method - (car x) (car y) #'>)) +(sx--create-comparator sx-question-list--date-more-recent-p + "Non-nil if tabulated-entry A is newer than B." + #'> (lambda (x) + (cdr (assq sx-question-list-date-sort-method (car x))))) ;;; Keybinds |