XEmacs 21.2.5

[chise/xemacs-chise.git.1] / src / doprnt.c

diff --git a/src/doprnt.c b/src/doprnt.c
index 5dac446..8259c5a 100644 (file)
--- 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))
            {
              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",
              if (!INT_OR_FLOATP (obj))
                {
                  error ("format specifier %%%c doesn't match argument type",