diff options
| author | Nicolas Petton <nicolas@petton.fr> | 2015-08-24 10:12:31 +0200 |
|---|---|---|
| committer | Nicolas Petton <nicolas@petton.fr> | 2015-08-24 10:25:19 +0200 |
| commit | 291593a0571dd62ae809ed337aca8b9e62a5fddc (patch) | |
| tree | abe0018efe8a90b1954a6bbb6dd3254842efe7b5 /lisp/emacs-lisp/seq.el | |
| parent | 24c61cab074c81da00785bedb62eb0be95fd9776 (diff) | |
| download | emacs-291593a0571dd62ae809ed337aca8b9e62a5fddc.tar.gz | |
Fix cl-subseq and cl-concatenate
* 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.
Diffstat (limited to 'lisp/emacs-lisp/seq.el')
| -rw-r--r-- | lisp/emacs-lisp/seq.el | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/seq.el b/lisp/emacs-lisp/seq.el index 5ce4d91ec3e..6a386bdceff 100644 --- a/lisp/emacs-lisp/seq.el +++ b/lisp/emacs-lisp/seq.el @@ -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. |