* lisp/emacs-lisp/helpers.el (string-join): New function.

This commit is contained in:
Bozhidar Batsov 2013-11-25 21:04:50 +02:00
parent e4091d8586
commit 4301875e6e
3 changed files with 8 additions and 1 deletions

View file

@ -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)