(doprnt1): If lispstrings, accept a string

as a `struct Lisp_String *'.

(doprnt1): If lispstrings, accept a string
as a `struct Lisp_String *'.
857c4c67 · Richard M. Stallman · 0f26b958 · 857c4c67
Commit 857c4c67 authored Sep 03, 1996 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

src/doprnt.c src/doprnt.c +2 -2

No files found.
--- 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