changeset 20303:13efdf0fe96e

(printchar): Declare `work' as unsigned char. (internal_with_output_to_temp_buffer): Protoype parameter FUNCTION. (Ferror_message_string): Remove extra argument of print_error_message. (write_string): Define as returning nothing. (write_string_1): Likewise. (print_error_message): Likewise.

--- a/src/print.c	Fri Nov 21 13:50:47 1997 +0000
+++ b/src/print.c	Fri Nov 21 14:05:58 1997 +0000
@@ -318,7 +318,7 @@
   if (EQ (fun, Qnil))
     {
       int len;
-      char work[4], *str;
+      unsigned char work[4], *str;
 
       QUIT;
       len = CHAR_STRING (ch, work, str);
@@ -483,6 +483,7 @@
    It isn't safe to use strout in many cases,
    because printing one char can relocate.  */
 
+void
 print_string (string, printcharfun)
      Lisp_Object string;
      Lisp_Object printcharfun;
@@ -524,6 +525,7 @@
    on the default output stream.
    Do not use this on the contents of a Lisp string.  */
 
+void
 write_string (data, size)
      char *data;
      int size;
@@ -542,6 +544,7 @@
    on a specified stream PRINTCHARFUN.
    Do not use this on the contents of a Lisp string.  */
 
+void
 write_string_1 (data, size, printcharfun)
      char *data;
      int size;
@@ -579,7 +582,7 @@
 Lisp_Object
 internal_with_output_to_temp_buffer (bufname, function, args)
      char *bufname;
-     Lisp_Object (*function) ();
+     Lisp_Object (*function) P_ ((Lisp_Object));
      Lisp_Object args;
 {
   int count = specpdl_ptr - specpdl;
@@ -820,7 +823,7 @@
       && NILP (XCONS (XCONS (obj)->cdr)->cdr))
     return XCONS (XCONS (obj)->cdr)->car;
 
-  print_error_message (obj, Vprin1_to_string_buffer, NULL);
+  print_error_message (obj, Vprin1_to_string_buffer);
 
   set_buffer_internal (XBUFFER (Vprin1_to_string_buffer));
   value = Fbuffer_string ();
@@ -836,6 +839,7 @@
 /* Print an error message for the error DATA
    onto Lisp output stream STREAM (suitable for the print functions).  */
 
+void
 print_error_message (data, stream)
      Lisp_Object data, stream;
 {