diff options
| author | Noam Postavsky | 2020-03-22 07:48:14 -0400 |
|---|---|---|
| committer | Noam Postavsky | 2020-03-22 23:06:31 -0400 |
| commit | 9ab85f087f7db38168dcf07d24f51ecd2c583f8a (patch) | |
| tree | 0ae48c0410b18776d4605fe46e303001683ee7d8 /lisp | |
| parent | 561e9fb91bba98616f6d7ea3818727c1cdd2d853 (diff) | |
| download | emacs-9ab85f087f7db38168dcf07d24f51ecd2c583f8a.tar.gz emacs-9ab85f087f7db38168dcf07d24f51ecd2c583f8a.zip | |
Fix cl-concatenate (Bug#40180)
* lisp/emacs-lisp/cl-extra.el (cl-concatenate): Use apply, to avoid
adding extra nesting of args.
* test/lisp/emacs-lisp/cl-extra-tests.el (cl-concatenate): New test.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-extra.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index e9bfe8df5f2..ce6fb625bc0 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el | |||
| @@ -556,7 +556,7 @@ too large if positive or too small if negative)." | |||
| 556 | (defun cl-concatenate (type &rest sequences) | 556 | (defun cl-concatenate (type &rest sequences) |
| 557 | "Concatenate, into a sequence of type TYPE, the argument SEQUENCEs. | 557 | "Concatenate, into a sequence of type TYPE, the argument SEQUENCEs. |
| 558 | \n(fn TYPE SEQUENCE...)" | 558 | \n(fn TYPE SEQUENCE...)" |
| 559 | (seq-concatenate type sequences)) | 559 | (apply #'seq-concatenate type sequences)) |
| 560 | 560 | ||
| 561 | ;;; List functions. | 561 | ;;; List functions. |
| 562 | 562 | ||