diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-01-16 13:30:58 -0200 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-01-16 13:30:58 -0200 |
| commit | 006c85d3a241e20b6b03ab4499dbc467f8431ddd (patch) | |
| tree | 4799ce852da6e4308080669aa577906ef56f8bbc /sx-question-list.el | |
| parent | bed5191a0137cb115656baf6ae3535b2a646d0b2 (diff) | |
| parent | 389e433953bba4003b102748dbbf5f8a9b421a51 (diff) | |
Merge branch 'master' into tag-buttons
Conflicts:
sx-question.el
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 256bdb4..63484e1 100644 --- a/sx-question-list.el +++ b/sx-question-list.el @@ -303,11 +303,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 |