From de12301ea1959d81f3ad4c5b624ee998ffb55e2b Mon Sep 17 00:00:00 2001 From: =?utf8?q?Fabi=C3=A1n=20Ezequiel=20Gallina?= Date: Mon, 30 Jun 2014 01:54:46 -0300 Subject: [PATCH] * lisp/emacs-lisp/subr-x.el (string-reverse): Use `reverse'. --- lisp/ChangeLog | 4 ++++ lisp/emacs-lisp/subr-x.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 56e53ee673c..cbf8329d583 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2014-06-30 Fabián Ezequiel Gallina + * emacs-lisp/subr-x.el (string-reverse): Use `reverse'. + +2014-06-30 Fabián Ezequiel Gallina + New if-let, when-let, thread-first and thread-last macros. * emacs-lisp/subr-x.el diff --git a/lisp/emacs-lisp/subr-x.el b/lisp/emacs-lisp/subr-x.el index 60cd7b8995b..932c9e7f6ef 100644 --- a/lisp/emacs-lisp/subr-x.el +++ b/lisp/emacs-lisp/subr-x.el @@ -161,7 +161,7 @@ to bind a single value, BINDINGS can just be a plain tuple." (defsubst string-reverse (str) "Reverse the string STR." - (apply 'string (nreverse (string-to-list str)))) + (reverse str)) (defsubst string-trim-left (string) "Remove leading whitespace from STRING." -- 2.11.4.GIT