Move question sorting function to sx.el

It is not specific to questions -- it is generally applicable to any
alist.

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
diff --git a/sx.el b/sx.el
index 6165714..0a1b046 100644
--- a/sx.el
+++ b/sx.el
@@ -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,