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

(format2): New function, replaces format1

Browse source 
but takes exactly two Lisp Objects as format args.
This commit is contained in:
Richard M. Stallman 2003-01-25 19:48:14 +00:00
parent 6afc669e92
commit d40dc1d037
1 changed files with 8 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
src/editfns.c
View file

@ -3648,30 +3648,17 @@ usage: (format STRING &rest OBJECTS) */)
return val;
}
/* VARARGS 1 */
Lisp_Object
#ifdef NO_ARG_ARRAY
format1 (string1, arg0, arg1, arg2, arg3, arg4)
EMACS_INT arg0, arg1, arg2, arg3, arg4;
#else
format1 (string1)
#endif
format2 (string1, arg0, arg1)
char *string1;
Lisp_Object arg0, arg1;
{
char buf[100];
#ifdef NO_ARG_ARRAY
EMACS_INT args[5];
args[0] = arg0;
args[1] = arg1;
args[2] = arg2;
args[3] = arg3;
args[4] = arg4;
doprnt (buf, sizeof buf, string1, (char *)0, 5, (char **) args);
#else
doprnt (buf, sizeof buf, string1, (char *)0, 5, &string1 + 1);
#endif
return build_string (buf);
Lisp_Object args[3];
int numargs;
args[0] = build_string (string1);
args[1] = arg0;
args[2] = arg1;
return Fformat (3, args);
}
DEFUN ("char-equal", Fchar_equal, Schar_equal, 2, 2, 0,