From a5dbb543cb3d3d0ef6774c410462ee33776810b2 Mon Sep 17 00:00:00 2001 From: Nicolas Petton Date: Wed, 15 Apr 2015 18:26:52 +0200 Subject: [PATCH] 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. --- lisp/emacs-lisp/cl-extra.el | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) 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. -- 2.39.5