From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 3 Sep 1996 23:23:40 +0000 (+0000)
Subject: (doprnt1): If lispstrings, accept a string
X-Git-Tag: emacs-20.1~3848
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=857c4c675fd1ed88c0ae87218c4d4431d640c973;p=emacs.git

(doprnt1): If lispstrings, accept a string
as a `struct Lisp_String *'.
---

diff --git a/src/doprnt.c b/src/doprnt.c
index 3a1e41741c5..d9b6566b1bc 100644
--- a/src/doprnt.c
+++ b/src/doprnt.c
@@ -201,8 +201,8 @@ doprnt1 (lispstrings, buffer, bufsize, format, format_end, nargs, args)
 		minlen = atoi (&fmtcpy[1]);
 	      if (lispstrings)
 		{
-		  string = (char *) XSTRING (((Lisp_Object *) args)[cnt])->data;
-		  tem = XSTRING (((Lisp_Object *) args)[cnt])->size;
+		  string = (char *) ((struct Lisp_String *)args[cnt])->data;
+		  tem = ((struct Lisp_String *)args[cnt])->size;
 		  cnt++;
 		}
 	      else