Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/src/doprnt.c	Mon Aug 13 11:06:08 2007 +0200
+++ b/src/doprnt.c	Mon Aug 13 11:07:10 2007 +0200
@@ -576,7 +576,7 @@
 	    {
 	      Lisp_Object obj = largs[spec->argnum - 1];
 	      if (CHARP (obj))
-		CHECK_INT_COERCE_CHAR (obj);
+		obj = make_int (XCHAR (obj));
 	      if (!INT_OR_FLOATP (obj))
 		{
 		  error ("format specifier %%%c doesn't match argument type",