branch: externals/compat
commit 38aba13d75a049b03bedefb06101a77f5b78b0e2
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
compat-30: Make value< type checking more strict
---
compat-30.el | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/compat-30.el b/compat-30.el
index 28f9faaa1a..ed7bc8b3c6 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))
