procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add seq-into as a public function

Browse source 
* lisp/emacs-lisp/seq.el: Make seq-into a public function (replacing
seq--into)
* test/automated/seq-tests.el: Add tests for seq-into
* doc/lispref/sequences.texi: Add documentation for seq-into
This commit is contained in:
Nicolas Petton 2015-03-09 12:46:29 +01:00
parent 8854b9cf52
commit b7ed48c3ce
6 changed files with 65 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/emacs-lisp/seq.el
View file

@ -4,7 +4,8 @@
;; Author: Nicolas Petton <nicolas@petton.fr>
;; Keywords: sequences
;; Version: 1.2
;; Version: 1.3
;; Package: seq
;; Maintainer: emacs-devel@gnu.org
@ -171,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.
@ -265,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))