diff options
| author | Nicolas Petton <nicolas@petton.fr> | 2016-06-18 10:07:26 +0200 |
|---|---|---|
| committer | Nicolas Petton <nicolas@petton.fr> | 2016-06-18 10:10:00 +0200 |
| commit | ead28454b89c7ba532ecc3f0f4beac68e943b94d (patch) | |
| tree | 20beb5f44fb75e809a0b4d838895787a7435d582 /lisp/emacs-lisp | |
| parent | 2aebb0dd1fc66ba8cacef3f734e9a046cbc04ad2 (diff) | |
| download | emacs-ead28454b89c7ba532ecc3f0f4beac68e943b94d.tar.gz emacs-ead28454b89c7ba532ecc3f0f4beac68e943b94d.tar.bz2 emacs-ead28454b89c7ba532ecc3f0f4beac68e943b94d.zip | |
Fix seq-contains
Make sure seq-contains return the element of the sequence instead of t.
* lisp/emacs-lisp/seq.el (seq-contains): Fix the function.
* test/lisp/emacs-lisp/seq-tests.el: Add a regression test.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/seq.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/seq.el b/lisp/emacs-lisp/seq.el index 20610a7027d..e5004f8cdab 100644 --- a/lisp/emacs-lisp/seq.el +++ b/lisp/emacs-lisp/seq.el @@ -4,7 +4,7 @@ ;; Author: Nicolas Petton <nicolas@petton.fr> ;; Keywords: sequences -;; Version: 2.17 +;; Version: 2.18 ;; Package: seq ;; Maintainer: emacs-devel@gnu.org @@ -349,7 +349,8 @@ found or not." "Return the first element in SEQUENCE that is equal to ELT. Equality is defined by TESTFN if non-nil or by `equal' if nil." (seq-some (lambda (e) - (funcall (or testfn #'equal) elt e)) + (when (funcall (or testfn #'equal) elt e) + e)) sequence)) (cl-defgeneric seq-position (sequence elt &optional testfn) |