Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 12:57:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(Fformat): Use doprnt_lisp.

Browse source
This commit is contained in:
Richard M. Stallman 1995-11-10 06:41:14 +00:00
parent 1513af9e91
commit 102cfe9246
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/editfns.c
View file

@ -1896,8 +1896,12 @@ Use %% to put a single % into the output.")
strings[i++] = (unsigned char *) u.half[1];
}
#endif
else
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. */
@ -1909,7 +1913,8 @@ Use %% to put a single % into the output.")
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;