# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1059500212 0
# Node ID cda0be6a71384aac1978c4c22adbeede49720a1d
# Parent  4cddcea7e034ee765b9cb99a10f072397be4c905
(Fclear_string): New function.
(syms_of_fns): defsubr it.

diff -r 4cddcea7e034 -r cda0be6a7138 src/fns.c
--- a/src/fns.c	Tue Jul 29 10:11:01 2003 +0000
+++ b/src/fns.c	Tue Jul 29 17:36:52 2003 +0000
@@ -2325,6 +2325,20 @@
     }
   return array;
 }
+
+DEFUN ("clear-string", Fclear_string, Sclear_string,
+       1, 1, 0,
+       doc: /* Clear the contents of STRING.
+This makes STRING unibyte and may change its length.  */)
+     (string)
+     Lisp_Object string;
+{
+  int len = SBYTES (string);
+  bzero (SDATA (string), len);
+  STRING_SET_CHARS (string, len);
+  STRING_SET_UNIBYTE (string);
+  return Qnil;
+}
 
 DEFUN ("char-table-subtype", Fchar_table_subtype, Schar_table_subtype,
        1, 1, 0,
@@ -5659,6 +5673,7 @@
   defsubr (&Slax_plist_put);
   defsubr (&Sequal);
   defsubr (&Sfillarray);
+  defsubr (&Sclear_string);
   defsubr (&Schar_table_subtype);
   defsubr (&Schar_table_parent);
   defsubr (&Sset_char_table_parent);