diff options
| -rw-r--r-- | compat-30.el | 7 |
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)) |