Mercurial > emacs
changeset 13450:9a1e7191803f
(Fformat): Use doprnt_lisp.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 10 Nov 1995 06:41:14 +0000 |
| parents | 2e9306561b80 |
| children | 3a69848f7892 |
| files | src/editfns.c |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/editfns.c Fri Nov 10 06:40:06 1995 +0000 +++ b/src/editfns.c Fri Nov 10 06:41:14 1995 +0000 @@ -1896,8 +1896,12 @@ 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++] = XSTRING (args[n])->data; + strings[i++] = (unsigned char *) XFASTINT (args[n]); } /* Make room in result for all the non-%-codes in the control string. */ @@ -1909,7 +1913,8 @@ buf = (char *) alloca (total + 1); buf[total - 1] = 0; - length = doprnt (buf, total + 1, strings[0], end, i-1, strings + 1); + length = doprnt_lisp (buf, total + 1, strings[0], + end, i-1, strings + 1); if (buf[total - 1] == 0) break;