master 81bcad03e9: (seq-contains-p): Refine the non-nil returned value

[Stefan Monnier]

branch: master
commit 81bcad03e93854087ab239f4e8b7c062fb069ca5
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    (seq-contains-p): Refine the non-nil returned value
    
    * lisp/emacs-lisp/seq.el (seq-contains-p): Like `cl-some` return the
    value returned by the test function rather than t.
---
 lisp/emacs-lisp/seq.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/seq.el b/lisp/emacs-lisp/seq.el
index 5ea9fae2e9..1bcb844d8e 100644
--- a/lisp/emacs-lisp/seq.el
+++ b/lisp/emacs-lisp/seq.el
@@ -418,8 +418,9 @@ Equality is defined by TESTFN if non-nil or by `equal' if 
nil."
 Equality is defined by TESTFN if non-nil or by `equal' if nil."
     (catch 'seq--break
       (seq-doseq (e sequence)
-        (when (funcall (or testfn #'equal) e elt)
-          (throw 'seq--break t)))
+        (let ((r (funcall (or testfn #'equal) e elt)))
+          (when r
+            (throw 'seq--break r))))
       nil))
 
 (cl-defgeneric seq-set-equal-p (sequence1 sequence2 &optional testfn)