[Emacs-diffs] Changes to emacs/src/fns.c

[Richard M. Stallman]

Index: emacs/src/fns.c
diff -c emacs/src/fns.c:1.341 emacs/src/fns.c:1.342
*** emacs/src/fns.c:1.341       Mon Jul 21 05:52:45 2003
--- emacs/src/fns.c     Tue Jul 29 13:36:52 2003
***************
*** 2325,2330 ****
--- 2325,2344 ----
      }
    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,5664 ****
--- 5673,5679 ----
    defsubr (&Slax_plist_put);
    defsubr (&Sequal);
    defsubr (&Sfillarray);
+   defsubr (&Sclear_string);
    defsubr (&Schar_table_subtype);
    defsubr (&Schar_table_parent);
    defsubr (&Sset_char_table_parent);