mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-17 10:06:13 +00:00
Code Issues Releases Activity

(doprnt1): If lispstrings, accept a string

Browse Source 
as a `struct Lisp_String *'.
This commit is contained in:
Richard M. Stallman 1996-09-03 23:23:40 +00:00
parent 0f26b958d8
commit 857c4c675f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/doprnt.c
View File

@ -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