branch: externals/compat
commit 1f3d7596173cf2851d3c4181b15d6c3573a38252
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
; Use all instead of seq-every-p
---
compat-tests.el | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/compat-tests.el b/compat-tests.el
index 69e4221a872..c5675f75cad 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -2628,9 +2628,8 @@
(defun compat-tests--color-approx-equal (color1 color2)
"Return t if COLOR1 and COLOR2 are approximately equal."
- (seq-every-p
- (lambda (x) (< (abs x) 0.00001))
- (cl-mapcar #'- color1 color2)))
+ (all (lambda (x) (< (abs x) 0.00001))
+ (cl-mapcar #'- color1 color2)))
(ert-deftest compat-color-oklab-to-xyz ()
(should (compat-tests--color-approx-equal (compat-call color-oklab-to-xyz 0
0 0) '(0.0 0.0 0.0)))
