# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 937400317 0
# Node ID 9bfb1496cdd8853ee5105125a55b760cea031b58
# Parent  b7468dc89ccb2b5a05ba609782c3e548f9eebaa1
(PRINTFULLP): Removed because it is no longer used and
is misleading.
(Ferror_message_string): Remove unused variables.
(print_object): Cast argument of sprintf to long for `%ld'
specifier.  Remove unused variable.

diff -r b7468dc89ccb -r 9bfb1496cdd8 src/print.c
--- a/src/print.c	Wed Sep 15 12:58:31 1999 +0000
+++ b/src/print.c	Wed Sep 15 12:58:37 1999 +0000
@@ -290,13 +290,6 @@
 
 #define PRINTCHAR(ch) printchar (ch, printcharfun)
 
-/* Nonzero if there is no room to print any more characters
-   so print might as well return right away.  */
-
-#define PRINTFULLP()					\
- (EQ (printcharfun, Qt) && !noninteractive		\
-  && printbufidx >= FRAME_WIDTH (XFRAME (WINDOW_FRAME (XWINDOW (minibuf_window)))))
-
 /* This is used to restore the saved contents of print_buffer
    when there is a recursive call to print.  */
 
@@ -849,7 +842,7 @@
      Lisp_Object obj;
 {
   struct buffer *old = current_buffer;
-  Lisp_Object original, printcharfun, value;
+  Lisp_Object value;
   struct gcpro gcpro1;
 
   /* If OBJ is (error STRING), just return STRING.
@@ -1255,7 +1248,7 @@
       if (sizeof (int) == sizeof (EMACS_INT))
 	sprintf (buf, "%d", XINT (obj));
       else if (sizeof (long) == sizeof (EMACS_INT))
-	sprintf (buf, "%ld", XINT (obj));
+	sprintf (buf, "%ld", (long) XINT (obj));
       else
 	abort ();
       strout (buf, -1, -1, printcharfun, 0);
@@ -1278,7 +1271,6 @@
       else
 	{
 	  register int i, i_byte;
-	  register unsigned char c;
 	  struct gcpro gcpro1;
 	  unsigned char *str;
 	  int size_byte;