X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=src%2Fdoprnt.c;h=b9951ae2948cffa4bab68cf3c83a1a6111b510f4;hp=8259c5ad919f1c2ed1a39ca364615413e36e0fe0;hb=1a5e625ffcc6b2e9a9828a89763c062a0b09b361;hpb=77dcef404dc78635f6ffa8f71a803d2bc7cc8921

diff --git a/src/doprnt.c b/src/doprnt.c
index 8259c5a..5dac446 100644
--- a/src/doprnt.c
+++ b/src/doprnt.c
@@ -576,7 +576,7 @@ emacs_doprnt_1 (Lisp_Object stream, CONST Bufbyte *format_nonreloc,
 	    {
 	      Lisp_Object obj = largs[spec->argnum - 1];
 	      if (CHARP (obj))
-		obj = make_int (XCHAR (obj));
+		CHECK_INT_COERCE_CHAR (obj);
 	      if (!INT_OR_FLOATP (obj))
 		{
 		  error ("format specifier %%%c doesn't match argument type",