Mercurial > hg > xemacs-beta
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,