procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Fformat): Validate number and type of arguments.

Browse source
This commit is contained in:
Karl Heuer 1994-03-25 07:20:08 +00:00
parent ba32f2db71
commit b22e7ecc3f
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/editfns.c
View file

@ -1463,7 +1463,7 @@ Use %% to put a single % into the output.")
if (*format == '%')
format++;
else if (++n >= nargs)
;
error ("format string wants too many arguments");
else if (*format == 'S')
{
/* For `S', prin1 the argument and then treat like a string. */
@ -1480,6 +1480,8 @@ Use %% to put a single % into the output.")
else if (XTYPE (args[n]) == Lisp_String)
{
string:
if (*format != 's' && *format != 'S')
error ("format specifier doesn't match argument type");
total += XSTRING (args[n])->size;
}
/* Would get MPV otherwise, since Lisp_Int's `point' to low memory. */