From 4301875e6e41926fe09c34cf18204ee47b37a742 Mon Sep 17 00:00:00 2001
From: Bozhidar Batsov <bozhidar@batsov.com>
Date: Mon, 25 Nov 2013 21:04:50 +0200
Subject: * lisp/emacs-lisp/helpers.el (string-join): New function.

---
 lisp/emacs-lisp/helpers.el | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'lisp/emacs-lisp/helpers.el')

diff --git a/lisp/emacs-lisp/helpers.el b/lisp/emacs-lisp/helpers.el
index fd5985467b5..a8e6c494c4d 100644
--- a/lisp/emacs-lisp/helpers.el
+++ b/lisp/emacs-lisp/helpers.el
@@ -37,6 +37,10 @@
     (maphash (lambda (_k v) (push v values)) hash-table)
     values))
 
+(defsubst string-join (strings &optional separator)
+  "Join all STRINGS using SEPARATOR."
+  (mapconcat 'identity strings separator))
+
 (defsubst string-trim-left (string)
   "Remove leading whitespace from STRING."
   (if (string-match "\\`[ \t\n\r]+" string)
-- 
cgit v1.2.3