diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-03-07 09:59:43 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-03-07 09:59:43 -0500 |
| commit | d67ca6739c3ed0c4ac36d3ee5a4eb158d791f668 (patch) | |
| tree | 7e03813e3cb605a8352fa46c15ea046157cf9b4c /lisp/emacs-lisp | |
| parent | 418e5da5d308b4e440f28545eb139211066b48a4 (diff) | |
| download | emacs-d67ca6739c3ed0c4ac36d3ee5a4eb158d791f668.tar.gz emacs-d67ca6739c3ed0c4ac36d3ee5a4eb158d791f668.tar.bz2 emacs-d67ca6739c3ed0c4ac36d3ee5a4eb158d791f668.zip | |
* lisp/emacs-lisp/seq.el (seq-concatenate): Accept non-`sequencep` sequences
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/seq.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/seq.el b/lisp/emacs-lisp/seq.el index abfe51d32b5..5ea9fae2e9b 100644 --- a/lisp/emacs-lisp/seq.el +++ b/lisp/emacs-lisp/seq.el @@ -299,6 +299,7 @@ sorted. FUNCTION must be a function of one argument." TYPE must be one of following symbols: vector, string or list. \n(fn TYPE SEQUENCE...)" + (setq sequences (mapcar #'seq-into-sequence sequences)) (pcase type ('vector (apply #'vconcat sequences)) ('string (apply #'concat sequences)) |