diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-09-03 23:23:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-09-03 23:23:40 +0000 |
| commit | 484fdb71d37a081b2bb590c286623e39288ea925 (patch) | |
| tree | 45ca3893c79865a8d80b00876542fb9ac5add393 /src/doprnt.c | |
| parent | bcbc3de1133a1b36a471988bf1153be9069b01b5 (diff) | |
| download | emacs-484fdb71d37a081b2bb590c286623e39288ea925.tar.gz | |
(doprnt1): If lispstrings, accept a string
as a `struct Lisp_String *'.
Diffstat (limited to 'src/doprnt.c')
| -rw-r--r-- | src/doprnt.c | 4 |
1 files 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 |