# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 815985674 0
# Node ID 9a1e7191803f2957ca69ebf3c27a2849d14004cd
# Parent  2e9306561b803c65839cd7a2e19c7c4e8df3680c
(Fformat): Use doprnt_lisp.

diff -r 2e9306561b80 -r 9a1e7191803f src/editfns.c
--- a/src/editfns.c	Fri Nov 10 06:40:06 1995 +0000
+++ b/src/editfns.c	Fri Nov 10 06:41:14 1995 +0000
@@ -1896,8 +1896,12 @@
 	    strings[i++] = (unsigned char *) u.half[1];
 	  }
 #endif
+	else if (i == 0)
+	  /* The first string is treated differently
+	     because it is the format string.  */
+	  strings[i++] = XSTRING (args[n])->data;
 	else
-	  strings[i++] = XSTRING (args[n])->data;
+	  strings[i++] = (unsigned char *) XFASTINT (args[n]);
       }
 
     /* Make room in result for all the non-%-codes in the control string.  */
@@ -1909,7 +1913,8 @@
 	buf = (char *) alloca (total + 1);
 	buf[total - 1] = 0;
 
-	length = doprnt (buf, total + 1, strings[0], end, i-1, strings + 1);
+	length = doprnt_lisp (buf, total + 1, strings[0],
+			      end, i-1, strings + 1);
 	if (buf[total - 1] == 0)
 	  break;