* doc/lispref/sequences.texi (Sequence Functions): Update nreverse.

* src/fns.c (Fnreverse): Accept strings for SEQ and update doc-string.

2 files changed, 9 insertions, 6 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 0ca3deaec9c..d6e21a777c2 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2014-05-21  Leo Liu  <sdl.web@gmail.com>
+
+        * fns.c (Fnreverse): Accept strings for SEQ and update doc-string.
+
 2014-05-20  Michael Albinus  <michael.albinus@gmx.de>
 
         * dbusbind.c (xd_signature): Revert last 2 patches.
diff --git a/src/fns.c b/src/fns.c
index 1694f1c798d..5074ae3b41b 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -1697,16 +1697,15 @@ changing the value of a sequence `foo'.  */)
 }
 
 DEFUN ("nreverse", Fnreverse, Snreverse, 1, 1, 0,
-       doc: /* Reverse order of items in a list or vector SEQ.
-If SEQ is a list, it should be nil-terminated, and reversed
-by modifying cdr pointers.  Return the reversed SEQ.
-
-Note that unlike `reverse', this function doesn't work with strings.
-It is strongly encouraged to treat them as immutable.  */)
+       doc: /* Reverse order of items in a list, vector or string SEQ.
+If SEQ is a list, it should be nil-terminated.
+This function may destructively modify SEQ to produce the value.  */)
   (Lisp_Object seq)
 {
   if (NILP (seq))
     return seq;
+  else if (STRINGP (seq))
+    return Freverse (seq);
   else if (CONSP (seq))
     {
       Lisp_Object prev, tail, next;