diff options
| author | Noam Postavsky | 2020-03-23 18:58:21 -0400 |
|---|---|---|
| committer | Noam Postavsky | 2020-03-23 18:58:21 -0400 |
| commit | 78f76fe16e2737b40694f82af28d17a90a21ed7b (patch) | |
| tree | e3c86c4b56811b3576743946f94ee746c4928b69 | |
| parent | 5d5d5d492c0f1cc500713b133b1ad3e205031714 (diff) | |
| download | emacs-78f76fe16e2737b40694f82af28d17a90a21ed7b.tar.gz 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.
| -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)." | |||
| 552 | (seq-subseq seq start end)) | 552 | (seq-subseq seq start end)) |
| 553 | 553 | ||
| 554 | ;;;###autoload | 554 | ;;;###autoload |
| 555 | (defun cl-concatenate (type &rest sequences) | 555 | (defalias 'cl-concatenate #'seq-concatenate |
| 556 | "Concatenate, into a sequence of type TYPE, the argument SEQUENCEs. | 556 | "Concatenate, into a sequence of type TYPE, the argument SEQUENCEs. |
| 557 | \n(fn TYPE SEQUENCE...)" | 557 | \n(fn TYPE SEQUENCE...)") |
| 558 | (apply #'seq-concatenate type sequences)) | ||
| 559 | 558 | ||
| 560 | ;;; List functions. | 559 | ;;; List functions. |
| 561 | 560 | ||