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 | 857c4c675fd1ed88c0ae87218c4d4431d640c973 (patch) | |
| tree | 7c9fbc475f9445152370c52e6bfe73ddd5fee27e /src/doprnt.c | |
| parent | 0f26b958d8fbce5637de5248c510b844df92ff3d (diff) | |
| download | emacs-857c4c675fd1ed88c0ae87218c4d4431d640c973.tar.gz emacs-857c4c675fd1ed88c0ae87218c4d4431d640c973.tar.bz2 emacs-857c4c675fd1ed88c0ae87218c4d4431d640c973.zip | |
(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 |