From 63fbf4ff16e0d80fca7721a975824c2fa2f8e161 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 15 Sep 1999 12:58:37 +0000 Subject: [PATCH] (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. --- src/print.c | 12 ++---------- 1 file changed, 2 insertions(+), 10 deletions(-) diff --git a/src/print.c b/src/print.c index 3c560855b41..d6c85717f01 100644 --- a/src/print.c +++ b/src/print.c @@ -290,13 +290,6 @@ void print_interval (); #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 @@ DEFUN ("error-message-string", Ferror_message_string, Serror_message_string, 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 @@ print_object (obj, printcharfun, escapeflag) 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 @@ print_object (obj, printcharfun, escapeflag) else { register int i, i_byte; - register unsigned char c; struct gcpro gcpro1; unsigned char *str; int size_byte; -- 2.39.5