From 857c4c675fd1ed88c0ae87218c4d4431d640c973 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 3 Sep 1996 23:23:40 +0000 Subject: [PATCH] (doprnt1): If lispstrings, accept a string as a `struct Lisp_String *'. --- src/doprnt.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.39.2