Commit d40dc1d0 authored by Richard M. Stallman's avatar Richard M. Stallman

(format2): New function, replaces format1

but takes exactly two Lisp Objects as format args.
parent 6afc669e
......@@ -3648,30 +3648,17 @@ usage: (format STRING &rest OBJECTS) */)
return val;
/* VARARGS 1 */
format1 (string1, arg0, arg1, arg2, arg3, arg4)
EMACS_INT arg0, arg1, arg2, arg3, arg4;
format1 (string1)
format2 (string1, arg0, arg1)
char *string1;
Lisp_Object arg0, arg1;
char buf[100];
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);
doprnt (buf, sizeof buf, string1, (char *)0, 5, &string1 + 1);
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,
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment