mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-07 15:21:46 +00:00
Code Issues Releases Activity

(Fclear_string): New function.

Browse Source 
(syms_of_fns): defsubr it.
This commit is contained in:
Richard M. Stallman 2003-07-29 17:36:52 +00:00
parent 2eaa00bae4
commit 85cad5793c
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/fns.c
View File

@ -2325,6 +2325,20 @@ ARRAY is a vector, string, char-table, or bool-vector. */)
}
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 @@ invoked by mouse clicks and mouse menu items. */);
defsubr (&Slax_plist_put);
defsubr (&Sequal);
defsubr (&Sfillarray);
defsubr (&Sclear_string);
defsubr (&Schar_table_subtype);
defsubr (&Schar_table_parent);
defsubr (&Sset_char_table_parent);