diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2020-03-23 18:58:21 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2020-03-23 18:58:21 -0400 |
| commit | 78f76fe16e2737b40694f82af28d17a90a21ed7b (patch) | |
| tree | e3c86c4b56811b3576743946f94ee746c4928b69 /lisp/emacs-lisp | |
| parent | 5d5d5d492c0f1cc500713b133b1ad3e205031714 (diff) | |
| download | emacs-78f76fe16e2737b40694f82af28d17a90a21ed7b.tar.gz emacs-78f76fe16e2737b40694f82af28d17a90a21ed7b.tar.bz2 emacs-78f76fe16e2737b40694f82af28d17a90a21ed7b.zip | |
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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-extra.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index f8336d397d7..5bf74792c08 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el @@ -552,10 +552,9 @@ too large if positive or too small if negative)." (seq-subseq seq start end)) ;;;###autoload -(defun cl-concatenate (type &rest sequences) +(defalias 'cl-concatenate #'seq-concatenate "Concatenate, into a sequence of type TYPE, the argument SEQUENCEs. -\n(fn TYPE SEQUENCE...)" - (apply #'seq-concatenate type sequences)) +\n(fn TYPE SEQUENCE...)") ;;; List functions. |