diff options
| author | Andrew Eggenberger <andrew.eggenberger@gmail.com> | 2020-02-27 21:43:47 -0600 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2020-03-07 18:39:01 -0500 |
| commit | 3cbf4cb79600ade39a186f31448e56e0e6fdd364 (patch) | |
| tree | 3ba5917b69d4e1c55f58bff11ff15c6d2d25e037 /lisp/emacs-lisp/seq.el | |
| parent | 363d927086dbdc4e5073393889b76eb0470785f4 (diff) | |
| download | emacs-3cbf4cb79600ade39a186f31448e56e0e6fdd364.tar.gz emacs-3cbf4cb79600ade39a186f31448e56e0e6fdd364.tar.bz2 emacs-3cbf4cb79600ade39a186f31448e56e0e6fdd364.zip | |
Eliminate use of cl-concatenate in 'seq' package
Fixes (Bug#39761) by making cl-extra dependent on seq rather than
vice versa.
* lisp/emacs-lisp/seq.el (seq-concatenate): Move cl-concatenate's
code here instead of calling it.
* lisp/emacs-lisp/cl-extra.el (cl-concatenate): Use cl-concatenate.
Copyright-paperwork-exempt: yes
Diffstat (limited to 'lisp/emacs-lisp/seq.el')
| -rw-r--r-- | lisp/emacs-lisp/seq.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/seq.el b/lisp/emacs-lisp/seq.el index 0b946dd7365..629a7a5fb30 100644 --- a/lisp/emacs-lisp/seq.el +++ b/lisp/emacs-lisp/seq.el @@ -285,7 +285,11 @@ sorted. FUNCTION must be a function of one argument." TYPE must be one of following symbols: vector, string or list. \n(fn TYPE SEQUENCE...)" - (apply #'cl-concatenate type (seq-map #'seq-into-sequence sequences))) + (pcase type + ('vector (apply #'vconcat sequences)) + ('string (apply #'concat sequences)) + ('list (apply #'append (append sequences '(nil)))) + (_ (error "Not a sequence type name: %S" type)))) (cl-defgeneric seq-into-sequence (sequence) "Convert SEQUENCE into a sequence. |