Mercurial > hg > xemacs-beta

comparison src/doprnt.c @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents cc15677e0335
children 74fd4e045ea6
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
574 } 574 }
575 else 575 else
576 { 576 {
577 Lisp_Object obj = largs[spec->argnum - 1]; 577 Lisp_Object obj = largs[spec->argnum - 1];
578 if (CHARP (obj)) 578 if (CHARP (obj))
579 CHECK_INT_COERCE_CHAR (obj); 579 obj = make_int (XCHAR (obj));
580 if (!INT_OR_FLOATP (obj)) 580 if (!INT_OR_FLOATP (obj))
581 { 581 {
582 error ("format specifier %%%c doesn't match argument type", 582 error ("format specifier %%%c doesn't match argument type",
583 ch); 583 ch);
584 } 584 }