[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/seq 0ffc6fd 05/53: Update seq.el to version 1.3
From: |
Stefan Monnier |
Subject: |
[elpa] externals/seq 0ffc6fd 05/53: Update seq.el to version 1.3 |
Date: |
Tue, 1 Dec 2020 17:06:03 -0500 (EST) |
branch: externals/seq
commit 0ffc6fd891c2b36cf4a15fbf621d61c66ad246be
Author: Nicolas Petton <nicolas@petton.fr>
Commit: Nicolas Petton <nicolas@petton.fr>
Update seq.el to version 1.3
* packages/seq/seq.el: update to version 1.3
* packages/seq/tests/seq-tests.el: update to version 1.3
---
seq.el | 11 ++++++-----
tests/seq-tests.el | 22 ++++++++++++++++++++++
2 files changed, 28 insertions(+), 5 deletions(-)
diff --git a/seq.el b/seq.el
index 5366fd2..59b9140 100644
--- a/seq.el
+++ b/seq.el
@@ -4,7 +4,7 @@
;; Author: Nicolas Petton <nicolas@petton.fr>
;; Keywords: sequences
-;; Version: 1.2
+;; Version: 1.3
;; Package: seq
;; Maintainer: emacs-devel@gnu.org
@@ -172,7 +172,7 @@ The result is a sequence of the same type as SEQ."
(if (listp seq)
(sort (seq-copy seq) pred)
(let ((result (seq-sort pred (append seq nil))))
- (seq--into result (type-of seq)))))
+ (seq-into result (type-of seq)))))
(defun seq-contains-p (seq elt &optional testfn)
"Return the first element in SEQ that equals to ELT.
@@ -266,10 +266,11 @@ See also the function `nreverse', which is used more
often."
seq)
(if (listp seq)
result
- (seq--into result (type-of seq)))))))
+ (seq-into result (type-of seq)))))))
-(defun seq--into (seq type)
- "Convert the sequence SEQ into a sequence of type TYPE."
+(defun seq-into (seq type)
+ "Convert the sequence SEQ into a sequence of type TYPE.
+TYPE can be one of the following symbols: vector, string or list."
(pcase type
(`vector (vconcat seq))
(`string (concat seq))
diff --git a/tests/seq-tests.el b/tests/seq-tests.el
index badb326..d3536b6 100644
--- a/tests/seq-tests.el
+++ b/tests/seq-tests.el
@@ -228,5 +228,27 @@ Evaluate BODY for each created sequence.
(should (equal (type-of (seq-reverse seq))
(type-of seq)))))
+(ert-deftest test-seq-into ()
+ (let* ((vector [1 2 3])
+ (list (seq-into vector 'list)))
+ (should (same-contents-p vector list))
+ (should (listp list)))
+ (let* ((list '(hello world))
+ (vector (seq-into list 'vector)))
+ (should (same-contents-p vector list))
+ (should (vectorp vector)))
+ (let* ((string "hello")
+ (list (seq-into string 'list)))
+ (should (same-contents-p string list))
+ (should (stringp string)))
+ (let* ((string "hello")
+ (vector (seq-into string 'vector)))
+ (should (same-contents-p string vector))
+ (should (stringp string)))
+ (let* ((list nil)
+ (vector (seq-into list 'vector)))
+ (should (same-contents-p list vector))
+ (should (vectorp vector))))
+
(provide 'seq-tests)
;;; seq-tests.el ends here
- [elpa] branch externals/seq created (now 10d3983), Stefan Monnier, 2020/12/01
- [elpa] externals/seq 380986d 02/53: Update seq.el to version 1.1, Stefan Monnier, 2020/12/01
- [elpa] externals/seq 088b2d6 09/53: Update seq.el to version 1.7, Stefan Monnier, 2020/12/01
- [elpa] externals/seq c555087 06/53: Rephrases a comment in seq.el about the order of the arguments, Stefan Monnier, 2020/12/01
- [elpa] externals/seq 81682a1 11/53: Update seq.el to version 1.9, Stefan Monnier, 2020/12/01
- [elpa] externals/seq 444ca62 01/53: packages/seq: New package, Stefan Monnier, 2020/12/01
- [elpa] externals/seq 503dc82 03/53: Update seq.el to version 1.1.1, Stefan Monnier, 2020/12/01
- [elpa] externals/seq 021f678 12/53: Update seq.el to version 1.11, Stefan Monnier, 2020/12/01
- [elpa] externals/seq 0ffc6fd 05/53: Update seq.el to version 1.3,
Stefan Monnier <=
- [elpa] externals/seq 5d295d9 10/53: Update seq.el to version 1.8, Stefan Monnier, 2020/12/01
- [elpa] externals/seq 0455744 08/53: * packages/seq/seq.el: Update seq.el to version 1.5., Stefan Monnier, 2020/12/01
- [elpa] externals/seq 1580064 04/53: Update seq.el to version 1.2, Stefan Monnier, 2020/12/01
- [elpa] externals/seq 3c98f64 07/53: seq.el update, Stefan Monnier, 2020/12/01