comparison src/fns.c @ 56358:97e94a98c666

(Fclear_string): Signal an error if STRING is not a string.

56357:ca58dab79be1

       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;

56358:97e94a98c666

       doc: /* Clear the contents of STRING.
This makes STRING unibyte and may change its length.  */)
     (string)
     Lisp_Object string;
{
  CHECK_STRING (string);
  int len = SBYTES (string);
  bzero (SDATA (string), len);
  STRING_SET_CHARS (string, len);
  STRING_SET_UNIBYTE (string);
  return Qnil;