master d67ca6739c: * lisp/emacs-lisp/seq.el (seq-concatenate): Accept non-`sequencep` sequences

[Stefan Monnier]

branch: master
commit d67ca6739c3ed0c4ac36d3ee5a4eb158d791f668
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * lisp/emacs-lisp/seq.el (seq-concatenate): Accept non-`sequencep` sequences
---
 lisp/emacs-lisp/seq.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lisp/emacs-lisp/seq.el b/lisp/emacs-lisp/seq.el
index abfe51d32b..5ea9fae2e9 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))