aboutsummaryrefslogtreecommitdiff
path: root/sx-question-list.el
diff options
context:
space:
mode:
authorArtur Malabarba <bruce.connor.am@gmail.com>2015-01-16 12:16:45 -0200
committerArtur Malabarba <bruce.connor.am@gmail.com>2015-01-16 12:16:45 -0200
commit402bac079cd32d1260ea839667db639f94f4254e (patch)
tree1eaeea3e78200995ad746251a83624b81a99ec35 /sx-question-list.el
parent6378af6a432f42b99487631117d3ee781fa17b0b (diff)
parent389e433953bba4003b102748dbbf5f8a9b421a51 (diff)
Merge branch 'master' into malabarba/fix-display-from-inbox
Conflicts: sx.el
Diffstat (limited to 'sx-question-list.el')
-rw-r--r--sx-question-list.el9
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