1 files changed, 9 insertions, 0 deletions

diff --git a/src/alloc.c b/src/alloc.c
index 2c2232601cb..c0d8c32b440 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -802,6 +802,15 @@ xstrdup (const char *s)
   return memcpy (xmalloc (size), s, size);
 }
 
+/* Like above, but duplicates Lisp string to C string.  */
+
+char *
+xlispstrdup (Lisp_Object string)
+{
+  ptrdiff_t size = SBYTES (string) + 1;
+  return memcpy (xmalloc (size), SSDATA (string), size);
+}
+
 /* Like putenv, but (1) use the equivalent of xmalloc and (2) the
    argument is a const pointer.  */