compat-30: Make value< type checking more strict

1 files changed, 6 insertions, 1 deletions

diff --git a/compat-30.el b/compat-30.el
index 28f9faa..ed7bc8b 100644
--- a/compat-30.el
+++ b/compat-30.el
@@ -231,8 +231,13 @@ Markers are compared lexicographically by buffer and position.
 Buffers and processes are compared by name.
 Other types are considered unordered and the return value will be ‘nil’."
   (cond
-   ((and (number-or-marker-p a) (number-or-marker-p b))
+   ;; TODO Open question: Shall we support mixed arguments? See bug#69709.
+   ;; (and (number-or-marker-p a) (number-or-marker-p b))
+   ((or (and (numberp a) (numberp b))
+        (and (markerp a) (markerp b)))
     (< a b))
+   ;; TODO Open question: Shall we support mixed arguments? See bug#69709.
+   ;; (and (or (stringp a) (symbolp a)) (or (stringp b) (symbolp b)))
    ((or (and (stringp a) (stringp b))
         (and (symbolp a) (symbolp b)))
     (string< a b))