Commit 857c4c67 authored by Richard M. Stallman's avatar Richard M. Stallman

(doprnt1): If lispstrings, accept a string

as a `struct Lisp_String *'.
parent 0f26b958
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment