Port string

[A6GibKm]

DEFUN ("string", Fstring, Sstring, 0, MANY, 0,
       doc: /*
Concatenate all the argument characters and make the result a string.
usage: (string &rest CHARACTERS)  */)
  (ptrdiff_t n, Lisp_Object *args)
{
  ptrdiff_t i;
  int c;
  unsigned char *buf, *p;
  Lisp_Object str;
  USE_SAFE_ALLOCA;

  SAFE_NALLOCA (buf, MAX_MULTIBYTE_LENGTH, n);
  p = buf;

  for (i = 0; i < n; i++)
    {
      CHECK_CHARACTER (args[i]);
      c = XINT (args[i]);
      p += CHAR_STRING (c, p);
    }

  str = make_string_from_bytes ((char *) buf, n, p - buf);
  SAFE_FREE ();
  return str;
}

[A6GibKm]

Fails with

Loading international/mule-cmds...
Loading case-table...
Loading /var/home/deathwish/.opt/remacs/lisp/international/charprop.el (source)...
Loading international/characters...
Wrong type argument: stringp, 8262
make[1]: *** [Makefile:807: bootstrap-emacs] Error 255

[A6GibKm]

Similar to char_to_string.

[db48x]

Mostly perfect!

[tshepang]

Suggested change

	let n = args.len();
	let mut buffer = vec![0_u8; n * MAX_MULTIBYTE_LENGTH];
	let mut buffer = vec![0_u8; args.len() * MAX_MULTIBYTE_LENGTH];

did this because I see nowhere else n is used

[A6GibKm]

n is used in make_string_from_bytes.