(doprnt1): If lispstrings, accept a string

as a `struct Lisp_String *'.

diff --git a/src/doprnt.c b/src/doprnt.c
index 3a1e41741c5e66cc5bd8787ef16a34962dfdc36d..d9b6566b1bc3aabb112c810a320888abc5ac414f 100644 (file)
--- 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