Skip to content

Commit 78f76fe

Browse files
committed
Make cl-concatenate an alias of seq-concatenate
* lisp/emacs-lisp/cl-extra.el (cl-concatenate): Use defalias instead of apply. This is simpler and more efficient.
1 parent 5d5d5d4 commit 78f76fe

File tree

1 file changed

+2
-3
lines changed

1 file changed

+2
-3
lines changed

lisp/emacs-lisp/cl-extra.el

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -552,10 +552,9 @@ too large if positive or too small if negative)."
552552
(seq-subseq seq start end))
553553

554554
;;;###autoload
555-
(defun cl-concatenate (type &rest sequences)
555+
(defalias 'cl-concatenate #'seq-concatenate
556556
"Concatenate, into a sequence of type TYPE, the argument SEQUENCEs.
557-
\n(fn TYPE SEQUENCE...)"
558-
(apply #'seq-concatenate type sequences))
557+
\n(fn TYPE SEQUENCE...)")
559558

560559
;;; List functions.
561560

0 commit comments

Comments
 (0)