comparison src/character.c @ 90841:fa02baec53ff

(Funibyte_string): New function. (syms_of_character): Defsubr it.

90840:e8902bf405a5

    }

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

void
init_character_once ()
{
}

  defsubr (&Schar_bytes);
  defsubr (&Schar_width);
  defsubr (&Sstring_width);
  defsubr (&Schar_direction);
  defsubr (&Sstring);

  DEFVAR_LISP ("translation-table-vector",  &Vtranslation_table_vector,
	       doc: /*
Vector recording all translation tables ever defined.
Each element is a pair (SYMBOL . TABLE) relating the table to the

90841:fa02baec53ff

    }

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

DEFUN ("unibyte-string", Funibyte_string, Sunibyte_string, 0, MANY, 0,
       doc: /* Concatenate all the argument bytes and make the result a unibyte string.  */)
     (n, args)
     int n;
     Lisp_Object *args;
{
  int i;
  unsigned char *buf = (unsigned char *) alloca (n);
  unsigned char *p = buf;
  unsigned c;

  for (i = 0; i < n; i++)
    {
      CHECK_NATNUM (args[i]);
      c = XFASTINT (args[i]);
      if (c >= 256)
	args_out_of_range_3 (args[i], make_number (0), make_number (255));
      *p++ = c;
    }

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

void
init_character_once ()
{
}

  defsubr (&Schar_bytes);
  defsubr (&Schar_width);
  defsubr (&Sstring_width);
  defsubr (&Schar_direction);
  defsubr (&Sstring);
  defsubr (&Sunibyte_string);

  DEFVAR_LISP ("translation-table-vector",  &Vtranslation_table_vector,
	       doc: /*
Vector recording all translation tables ever defined.
Each element is a pair (SYMBOL . TABLE) relating the table to the