[Emacs-diffs] Changes to emacs/src/editfns.c,v

[Andreas Schwab]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Andreas Schwab <schwab> 07/11/16 00:17:41

Index: editfns.c
===================================================================
RCS file: /sources/emacs/emacs/src/editfns.c,v
retrieving revision 1.450
retrieving revision 1.451
diff -u -b -r1.450 -r1.451
--- editfns.c   16 Nov 2007 00:09:47 -0000      1.450
+++ editfns.c   16 Nov 2007 00:17:40 -0000      1.451
@@ -3594,8 +3594,6 @@
        /* 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
@@ -3603,14 +3601,13 @@
            if (*format == 'e' || *format == 'f' || *format == 'g')
              {
                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 + (precision[n] > 0 ? precision[n] : 0);
            if (*format == 'c')
              {
                if (! SINGLE_BYTE_CHAR_P (XINT (args[n]))