diff options
| author | Andrea Corallo <akrl@sdf.org> | 2020-03-09 07:49:33 +0000 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-03-09 07:49:33 +0000 |
| commit | 87ee6ff4eb6df369965f37fba073e3ef1bb5d0bd (patch) | |
| tree | 2af79516bca28e875879e01cb45b16fa4525a905 /lisp/emacs-lisp/cl-extra.el | |
| parent | 9838ee7ed870844470703b2648f8b59c0575bd46 (diff) | |
| parent | a461baae79af3cea8780e9d9a845a1e859e96e5e (diff) | |
| download | emacs-87ee6ff4eb6df369965f37fba073e3ef1bb5d0bd.tar.gz emacs-87ee6ff4eb6df369965f37fba073e3ef1bb5d0bd.tar.bz2 emacs-87ee6ff4eb6df369965f37fba073e3ef1bb5d0bd.zip | |
Merge remote-tracking branch 'savannah/master' into HEAD
Diffstat (limited to 'lisp/emacs-lisp/cl-extra.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-extra.el | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index e3dabdfcef2..e9bfe8df5f2 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el @@ -556,11 +556,7 @@ too large if positive or too small if negative)." (defun cl-concatenate (type &rest sequences) "Concatenate, into a sequence of type TYPE, the argument SEQUENCEs. \n(fn TYPE SEQUENCE...)" - (pcase type - ('vector (apply #'vconcat sequences)) - ('string (apply #'concat sequences)) - ('list (apply #'append (append sequences '(nil)))) - (_ (error "Not a sequence type name: %S" type)))) + (seq-concatenate type sequences)) ;;; List functions. |