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++]; |