diff src/editfns.c @ 20311:2841215c1cb4

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

--- 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))