1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00

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

This commit is contained in:
Bozhidar Batsov 2013-11-26 17:24:10 +02:00
parent 5fbf6856db
commit 447bdcb8d2
3 changed files with 9 additions and 0 deletions

View file

@ -41,6 +41,10 @@
"Join all STRINGS using SEPARATOR."
(mapconcat 'identity strings separator))
(defsubst string-reverse (str)
"Reverse the string STR."
(apply 'string (nreverse (string-to-list str))))
(defsubst string-trim-left (string)
"Remove leading whitespace from STRING."
(if (string-match "\\`[ \t\n\r]+" string)