Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
4301875e
Commit
4301875e
authored
Nov 25, 2013
by
Bozhidar Batsov
Browse files
* lisp/emacs-lisp/helpers.el (string-join): New function.
parent
e4091d85
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
8 additions
and
1 deletion
+8
-1
etc/NEWS
etc/NEWS
+1
-0
lisp/ChangeLog
lisp/ChangeLog
+3
-1
lisp/emacs-lisp/helpers.el
lisp/emacs-lisp/helpers.el
+4
-0
No files found.
etc/NEWS
View file @
4301875e
...
...
@@ -775,6 +775,7 @@ frame.
** New library helpers.el for misc helper functions
***
`hash-table-keys'
***
`hash-table-values'
***
`string-join`
***
`string-trim-left'
***
`string-trim-right'
***
`string-trim'
...
...
lisp/ChangeLog
View file @
4301875e
2013-11-25 Bozhidar Batsov <bozhidar@b
ozhidar
.com>
2013-11-25 Bozhidar Batsov <bozhidar@b
atsov
.com>
* emacs-lisp/bytecomp.el (byte-compile-form): Fix a typo.
* emacs-lisp/helpers.el (string-join): New function.
2013-11-25 Sebastian Wiesner <lunaryorn@gmail.com>
* emacs-lisp/bytecomp.el (byte-compile-interactive-only-functions):
...
...
lisp/emacs-lisp/helpers.el
View file @
4301875e
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment