2007-11-15 Andreas Schwab <schwab@suse.de>
* editfns.c (Fformat): Correctly format EMACS_INT values.
+ When formatting an integer as float take precision into account.
2007-11-15 Juanma Barranquero <lekktu@gmail.com>
/* 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
be a double. */
if (*format == 'e' || *format == 'f' || *format == 'g')
- args[n] = Ffloat (args[n]);
+ {
+ args[n] = Ffloat (args[n]);
+ if (precision[n] > 0)
+ thissize += precision[n];
+ }
else
if (*format != 'd' && *format != 'o' && *format != 'x'
&& *format != 'i' && *format != 'X' && *format != 'c')
error ("Invalid format operation %%%c", *format);
- thissize = 30;
if (*format == 'c')
{
if (! SINGLE_BYTE_CHAR_P (XINT (args[n]))