diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-10-04 21:44:52 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-10-04 21:44:52 +0200 |
| commit | 92df7cd923d0e870f08484cec06c2726be30882b (patch) | |
| tree | f807122fce7f761ea97c9af634ed8a1f903895b3 /test/lisp/emacs-lisp | |
| parent | 1d3d87cd678371b067887950acc640361d0ab87c (diff) | |
| download | emacs-92df7cd923d0e870f08484cec06c2726be30882b.tar.gz emacs-92df7cd923d0e870f08484cec06c2726be30882b.tar.bz2 emacs-92df7cd923d0e870f08484cec06c2726be30882b.zip | |
Add 'seq-keep'
* doc/lispref/sequences.texi (Sequence Functions): Document it.
* lisp/emacs-lisp/seq.el (seq-keep): New function (bug#58278).
Diffstat (limited to 'test/lisp/emacs-lisp')
| -rw-r--r-- | test/lisp/emacs-lisp/seq-tests.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/seq-tests.el b/test/lisp/emacs-lisp/seq-tests.el index d95b35c45eb..e22f86f0447 100644 --- a/test/lisp/emacs-lisp/seq-tests.el +++ b/test/lisp/emacs-lisp/seq-tests.el @@ -592,5 +592,11 @@ Evaluate BODY for each created sequence. (should (= (length list) 10000)) (should (= (length (seq-uniq (append list list))) 10000)))) +(ert-deftest test-seq-keep () + (should (equal (seq-keep #'cl-digit-char-p '(?6 ?a ?7)) + '(6 7))) + (should (equal (seq-keep #'cl-digit-char-p [?6 ?a ?7]) + '(6 7)))) + (provide 'seq-tests) ;;; seq-tests.el ends here |