Mercurial > emacs
diff 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 |
line wrap: on
line diff
--- a/src/doprnt.c Tue Sep 03 22:23:51 1996 +0000 +++ b/src/doprnt.c Tue Sep 03 23:23:40 1996 +0000 @@ -201,8 +201,8 @@ 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