Always take precision into account.

diff --git a/src/editfns.c b/src/editfns.c
index c4b8aa073d357507ada04864ba31b5a1caa862b2..06fb1413b02be78f3faa71d6c02dd90335b07636 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -3596,8 +3596,6 @@ usage: (format STRING &rest OBJECTS)  */)
        /* Would get MPV otherwise, since Lisp_Int's `point' to low memory.  */
        else if (INTEGERP (args[n]) && *format != 's')
          {
-           thissize = 30;
-
            /* The following loop assumes the Lisp type indicates
               the proper way to pass the argument.
               So make sure we have a flonum if the argument should
@@ -3613,6 +3611,7 @@ usage: (format STRING &rest OBJECTS)  */)
                  && *format != 'i' && *format != 'X' && *format != 'c')
                error ("Invalid format operation %%%c", *format);
 
+           thissize = 30 + (precision[n] > 0 ? precision[n] : 0);
            if (*format == 'c')
              {
                if (! SINGLE_BYTE_CHAR_P (XINT (args[n]))