diff src/doprnt.c @ 2267:5753220a0f80

[xemacs-hg @ 2004-09-14 02:53:13 by james] Preformat syntax error messages.
author james
date Tue, 14 Sep 2004 02:53:16 +0000
parents 4e6a63799f08
children 4ec724310f33
line wrap: on
line diff
--- a/src/doprnt.c	Mon Sep 13 21:50:38 2004 +0000
+++ b/src/doprnt.c	Tue Sep 14 02:53:16 2004 +0000
@@ -597,9 +597,12 @@
 	      if (!INT_OR_FLOATP (obj))
 #endif
 		{
-		  syntax_error
-		    ("format specifier %%%c doesn't match argument type",
-		     make_char (ch));
+		  /* WARNING!  This MUST be big enough for the sprintf below */
+		  CIbyte message[48];
+		  sprintf (message,
+			   "format specifier %%%c doesn't match argument type",
+			   ch);
+		  syntax_error (message, Qnil);
 		}
 	      else if (strchr (double_converters, ch))
 		{
@@ -715,8 +718,13 @@
 	      a = (Ichar) arg.l;
 
 	      if (!valid_ichar_p (a))
-		syntax_error ("invalid character value %d to %%c spec",
-			      make_int (a));
+		{
+		  /* WARNING!  This MUST be big enough for the sprintf below */
+		  CIbyte message[60];
+		  sprintf (message, "invalid character value %d to %%c spec",
+			   a);
+		  syntax_error (message, Qnil);
+		}
 
 	      charlen = set_itext_ichar (charbuf, a);
 	      doprnt_2 (stream, charbuf, charlen, spec->minwidth,