diff options
| -rw-r--r-- | sx-question-list.el | 2 | ||||
| -rw-r--r-- | sx-question.el | 6 | ||||
| -rw-r--r-- | sx.el | 7 |
3 files changed, 8 insertions, 7 deletions
diff --git a/sx-question-list.el b/sx-question-list.el index caf24b1..a164706 100644 --- a/sx-question-list.el +++ b/sx-question-list.el @@ -120,7 +120,7 @@ Letters do not insert themselves; instead, they are commands. (defun sx-question-list--date-more-recent-p (x y) "Non-nil if tabulated-entry X is newer than Y." - (sx-question--< + (sx--< sx-question-list-date-sort-method (car x) (car y) #'>)) diff --git a/sx-question.el b/sx-question.el index 20a71cc..601875f 100644 --- a/sx-question.el +++ b/sx-question.el @@ -56,12 +56,6 @@ "Mark QUESTION as being read, until it is updated again." nil) -(defun sx-question--< (property x y &optional pred) - "Non-nil if PROPERTY attribute of question X is less than that of Y. -With optional argument predicate, use it instead of `<'." - (funcall (or pred #'<) - (cdr (assoc property x)) - (cdr (assoc property y)))) ;;; Displaying a question (defvar sx-question--window nil @@ -160,6 +160,13 @@ Run after `sx-init--internal-hook'.") This is used internally to set initial values for variables such as filters.") +(defun sx--< (property x y &optional pred) + "Non-nil if PROPERTY attribute of question X is less than that of Y. +With optional argument predicate, use it instead of `<'." + (funcall (or pred #'<) + (cdr (assoc property x)) + (cdr (assoc property y)))) + (defmacro sx-init-variable (variable value &optional setter) "Set VARIABLE to VALUE using SETTER. SETTER should be a function of two arguments. If SETTER is nil, |