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

Fix cl-subseq and cl-concatenate

Browse source 
* lisp/emacs-lisp/cl-extra.el (cl-subseq, cl-concatenate): Do not use
seq functions.
* lisp/emacs-lisp/seq.el (seq-concatenate): Call cl-concatenate in
seq-concatenate.
This commit is contained in:
Nicolas Petton 2015-08-24 10:12:31 +02:00
parent 24c61cab07
commit 291593a057
2 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -200,11 +200,7 @@ The result is a sequence of the same type as SEQ."
TYPE must be one of following symbols: vector, string or list.
\n(fn TYPE SEQUENCE...)"
(pcase type
(`vector (apply #'vconcat seqs))
(`string (apply #'concat seqs))
(`list (apply #'append (append seqs '(nil))))
(_ (error "Not a sequence type name: %S" type))))
(apply #'cl-concatenate type seqs))
(cl-defgeneric seq-into (seq type)
"Convert the sequence SEQ into a sequence of type TYPE.