From: Nicolas Petton <nicolas@petton.fr>
Date: Wed, 15 Apr 2015 16:26:52 +0000 (+0200)
Subject: Define cl-concatenate as an alias to seq-concatenate
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~23^2~3222
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=a5dbb543cb3d3d0ef6774c410462ee33776810b2;p=emacs.git

Define cl-concatenate as an alias to seq-concatenate

* lisp/emacs-lisp/cl-extra.el (cl-concatenate): Removes duplicated
  code by making cl-concatenate an alias to seq-concatenate.
---

diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el
index afc2adbee6d..0a6bc3afda7 100644
--- a/lisp/emacs-lisp/cl-extra.el
+++ b/lisp/emacs-lisp/cl-extra.el
@@ -528,13 +528,9 @@ If START or END is negative, it counts from the end."
   (seq-subseq seq start end))
 
 ;;;###autoload
-(defun cl-concatenate (type &rest seqs)
+(defalias 'cl-concatenate #'seq-concatenate
   "Concatenate, into a sequence of type TYPE, the argument SEQUENCEs.
-\n(fn TYPE SEQUENCE...)"
-  (cond ((eq type 'vector) (apply 'vconcat seqs))
-	((eq type 'string) (apply 'concat seqs))
-	((eq type 'list) (apply 'append (append seqs '(nil))))
-	(t (error "Not a sequence type name: %s" type))))
+\n(fn TYPE SEQUENCE...)")
 
 
 ;;; List functions.