Mercurial > hg > xemacs-beta

diff src/print.c @ 149:538048ae2ab8 r20-3b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b1
author cvs
date Mon, 13 Aug 2007 09:36:16 +0200
parents fe104dbd9147
children 85ec50267440
line wrap: on
line diff
--- a/src/print.c	Mon Aug 13 09:35:15 2007 +0200
+++ b/src/print.c	Mon Aug 13 09:36:16 2007 +0200
@@ -42,6 +42,8 @@
 
 #endif /* not standalone */
 
+static void print_error_message (Lisp_Object data, Lisp_Object stream);
+
 Lisp_Object Vstandard_output, Qstandard_output;
 
 /* The subroutine object for external-debugging-output is kept here
@@ -601,7 +603,7 @@
   Lisp_Object original, printcharfun, value;
   struct gcpro gcpro1;
 
-  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_substring (Fpoint_min(Fcurrent_buffer()),
@@ -619,8 +621,7 @@
 /* Print an error message for the error DATA
    onto Lisp output stream STREAM (suitable for the print functions).  */
 
-print_error_message (data, stream)
-     Lisp_Object data, stream;
+static void print_error_message (Lisp_Object data, Lisp_Object stream)
 {
   Lisp_Object errname, errmsg, file_error, tail;
   struct gcpro gcpro1;