221 |
{ |
{ |
222 |
union { double d; char *half[2]; } u; |
union { double d; char *half[2]; } u; |
223 |
if (cnt + 1 == nargs) |
if (cnt + 1 == nargs) |
224 |
error ("not enough arguments for format string"); |
error ("Not enough arguments for format string"); |
225 |
u.half[0] = args[cnt++]; |
u.half[0] = args[cnt++]; |
226 |
u.half[1] = args[cnt++]; |
u.half[1] = args[cnt++]; |
227 |
sprintf (sprintf_buffer, fmtcpy, u.d); |
sprintf (sprintf_buffer, fmtcpy, u.d); |
234 |
string[-1] = 's'; |
string[-1] = 's'; |
235 |
case 's': |
case 's': |
236 |
if (cnt == nargs) |
if (cnt == nargs) |
237 |
error ("not enough arguments for format string"); |
error ("Not enough arguments for format string"); |
238 |
if (fmtcpy[1] != 's') |
if (fmtcpy[1] != 's') |
239 |
minlen = atoi (&fmtcpy[1]); |
minlen = atoi (&fmtcpy[1]); |
240 |
if (lispstrings) |
if (lispstrings) |
297 |
|
|
298 |
case 'c': |
case 'c': |
299 |
if (cnt == nargs) |
if (cnt == nargs) |
300 |
error ("not enough arguments for format string"); |
error ("Not enough arguments for format string"); |
301 |
tem = CHAR_STRING ((int) (EMACS_INT) args[cnt], charbuf); |
tem = CHAR_STRING ((int) (EMACS_INT) args[cnt], charbuf); |
302 |
string = charbuf; |
string = charbuf; |
303 |
cnt++; |
cnt++; |