+{
+ return doprnt1 (0, buffer, bufsize, format, format_end, nargs, args);
+}
+
+/* Like doprnt except that strings in ARGS are passed
+ as Lisp_Object. */
+
+int
+doprnt_lisp (buffer, bufsize, format, format_end, nargs, args)
+ char *buffer;
+ register int bufsize;
+ char *format;
+ char *format_end;
+ int nargs;
+ char **args;
+{
+ return doprnt1 (1, buffer, bufsize, format, format_end, nargs, args);
+}
+
+static int
+doprnt1 (lispstrings, buffer, bufsize, format, format_end, nargs, args)
+ int lispstrings;
+ char *buffer;
+ register int bufsize;
+ char *format;
+ char *format_end;
+ int nargs;
+ char **args;