comparison src/editfns.c @ 13450:9a1e7191803f

(Fformat): Use doprnt_lisp.

13449:2e9306561b80

	    u.d = XFLOAT (args[n])->data;
	    strings[i++] = (unsigned char *) u.half[0];
	    strings[i++] = (unsigned char *) u.half[1];
	  }
#endif
	else
	  strings[i++] = XSTRING (args[n])->data;
      }

    /* Make room in result for all the non-%-codes in the control string.  */
    total += XSTRING (args[0])->size;

    while (1)
      {
	buf = (char *) alloca (total + 1);
	buf[total - 1] = 0;

	length = doprnt (buf, total + 1, strings[0], end, i-1, strings + 1);
	if (buf[total - 1] == 0)
	  break;

	total *= 2;
      }

13450:9a1e7191803f

	    u.d = XFLOAT (args[n])->data;
	    strings[i++] = (unsigned char *) u.half[0];
	    strings[i++] = (unsigned char *) u.half[1];
	  }
#endif
	else if (i == 0)
	  /* The first string is treated differently
	     because it is the format string.  */
	  strings[i++] = XSTRING (args[n])->data;
	else
	  strings[i++] = (unsigned char *) XFASTINT (args[n]);
      }

    /* Make room in result for all the non-%-codes in the control string.  */
    total += XSTRING (args[0])->size;

    while (1)
      {
	buf = (char *) alloca (total + 1);
	buf[total - 1] = 0;

	length = doprnt_lisp (buf, total + 1, strings[0],
			      end, i-1, strings + 1);
	if (buf[total - 1] == 0)
	  break;

	total *= 2;
      }