comparison src/editfns.c @ 20311:2841215c1cb4

(Fchar_to_string): Declare `workbuf' as unsigned char. (general_insert_function): Likewise. Protoize parameters. Define as returning nothing.

20310:b6fd8353113b

  "Convert arg CHAR to a string containing multi-byte form of that character.")
  (character)
     Lisp_Object character;
{
  int len;
  char workbuf[4], *str;

  CHECK_NUMBER (character, 0);

  len = CHAR_STRING (XFASTINT (character), workbuf, str);
  return make_string (str, len);

/* Insert NARGS Lisp objects in the array ARGS by calling INSERT_FUNC
   (if a type of object is Lisp_Int) or INSERT_FROM_STRING_FUNC (if a
   type of object is Lisp_String).  INHERIT is passed to
   INSERT_FROM_STRING_FUNC as the last argument.  */

general_insert_function (insert_func, insert_from_string_func,
			 inherit, nargs, args)
     int (*insert_func)(), (*insert_from_string_func)();
     int inherit, nargs;
     register Lisp_Object *args;
{
  register int argnum;
  register Lisp_Object val;

    {
      val = args[argnum];
    retry:
      if (INTEGERP (val))
	{
	  char workbuf[4], *str;
	  int len;

	  if (!NILP (current_buffer->enable_multibyte_characters))
	    len = CHAR_STRING (XFASTINT (val), workbuf, str);
	  else

20311:2841215c1cb4

  "Convert arg CHAR to a string containing multi-byte form of that character.")
  (character)
     Lisp_Object character;
{
  int len;
  unsigned char workbuf[4], *str;

  CHECK_NUMBER (character, 0);

  len = CHAR_STRING (XFASTINT (character), workbuf, str);
  return make_string (str, len);

/* Insert NARGS Lisp objects in the array ARGS by calling INSERT_FUNC
   (if a type of object is Lisp_Int) or INSERT_FROM_STRING_FUNC (if a
   type of object is Lisp_String).  INHERIT is passed to
   INSERT_FROM_STRING_FUNC as the last argument.  */

void
general_insert_function (insert_func, insert_from_string_func,
			 inherit, nargs, args)
     void (*insert_func) P_ ((unsigned char *, int));
     void (*insert_from_string_func) P_ ((Lisp_Object, int, int, int));
     int inherit, nargs;
     register Lisp_Object *args;
{
  register int argnum;
  register Lisp_Object val;

    {
      val = args[argnum];
    retry:
      if (INTEGERP (val))
	{
	  unsigned char workbuf[4], *str;
	  int len;

	  if (!NILP (current_buffer->enable_multibyte_characters))
	    len = CHAR_STRING (XFASTINT (val), workbuf, str);
	  else