mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

Define cl-concatenate as an alias to seq-concatenate

Browse source 
* lisp/emacs-lisp/cl-extra.el (cl-concatenate): Removes duplicated
  code by making cl-concatenate an alias to seq-concatenate.
This commit is contained in:
Nicolas Petton 2015-04-15 18:26:52 +02:00
parent 66ae3cff96
commit a5dbb543cb
1 changed files with 2 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/cl-extra.el
View file

@ -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.