# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 880123936 0
# Node ID 2841215c1cb46c71271382a12989ee0257efc6b2
# Parent  b6fd8353113b6de828f5788a6d9ed560400ac6ea
(Fchar_to_string): Declare `workbuf' as unsigned char.
(general_insert_function): Likewise.  Protoize parameters.  Define
as returning nothing.

diff -r b6fd8353113b -r 2841215c1cb4 src/editfns.c
--- a/src/editfns.c	Fri Nov 21 14:48:34 1997 +0000
+++ b/src/editfns.c	Fri Nov 21 14:52:16 1997 +0000
@@ -126,7 +126,7 @@
      Lisp_Object character;
 {
   int len;
-  char workbuf[4], *str;
+  unsigned char workbuf[4], *str;
 
   CHECK_NUMBER (character, 0);
 
@@ -1284,9 +1284,11 @@
    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)
-     int (*insert_func)(), (*insert_from_string_func)();
+     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;
 {
@@ -1299,7 +1301,7 @@
     retry:
       if (INTEGERP (val))
 	{
-	  char workbuf[4], *str;
+	  unsigned char workbuf[4], *str;
 	  int len;
 
 	  if (!NILP (current_buffer->enable_multibyte_characters))