# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 816457457 0
# Node ID 626f0886b43490bba80137b48df9cde7f7ab4475
# Parent  fb12156faaf5ee57adfc2e55ce8a0f50be4fb48e
(doprnt1): Add a cast.

diff -r fb12156faaf5 -r 626f0886b434 src/doprnt.c
--- a/src/doprnt.c	Wed Nov 15 17:42:44 1995 +0000
+++ b/src/doprnt.c	Wed Nov 15 17:44:17 1995 +0000
@@ -200,7 +200,7 @@
 		minlen = atoi (&fmtcpy[1]);
 	      if (lispstrings)
 		{
-		  string = XSTRING (((Lisp_Object *) args)[cnt])->data;
+		  string = (char *) XSTRING (((Lisp_Object *) args)[cnt])->data;
 		  tem = XSTRING (((Lisp_Object *) args)[cnt])->size;
 		  cnt++;
 		}