diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2024-05-17 14:32:04 +0200 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2024-05-17 14:32:04 +0200 |
| commit | 38aba13d75a049b03bedefb06101a77f5b78b0e2 (patch) | |
| tree | 9f6e993919afd5dcb705cf8402ff8b5316e56034 | |
| parent | 8190769d9eb9258dd8361bd322d90228dc586770 (diff) | |
compat-30: Make value< type checking more strict
| -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)) |