From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 25 Jan 2003 19:48:14 +0000 (+0000)
Subject: (format2): New function, replaces format1
X-Git-Tag: ttn-vms-21-2-B4~11484
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d40dc1d037dd5636864c961d8c018554e7167ec5;p=emacs.git

(format2): New function, replaces format1
but takes exactly two Lisp Objects as format args.
---

diff --git a/src/editfns.c b/src/editfns.c
index 1df3326762d..26d811d8f43 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -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,