Mercurial > emacs
comparison src/doprnt.c @ 16096:aa25c2ac018b
(doprnt1): If lispstrings, accept a string
as a `struct Lisp_String *'.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 03 Sep 1996 23:23:40 +0000 |
parents | cd283f1eb0cf |
children | e7814b054e91 |
comparison
equal
deleted
inserted
replaced
16095:0c87a74b1650 | 16096:aa25c2ac018b |
---|---|
199 error ("not enough arguments for format string"); | 199 error ("not enough arguments for format string"); |
200 if (fmtcpy[1] != 's') | 200 if (fmtcpy[1] != 's') |
201 minlen = atoi (&fmtcpy[1]); | 201 minlen = atoi (&fmtcpy[1]); |
202 if (lispstrings) | 202 if (lispstrings) |
203 { | 203 { |
204 string = (char *) XSTRING (((Lisp_Object *) args)[cnt])->data; | 204 string = (char *) ((struct Lisp_String *)args[cnt])->data; |
205 tem = XSTRING (((Lisp_Object *) args)[cnt])->size; | 205 tem = ((struct Lisp_String *)args[cnt])->size; |
206 cnt++; | 206 cnt++; |
207 } | 207 } |
208 else | 208 else |
209 { | 209 { |
210 string = args[cnt++]; | 210 string = args[cnt++]; |