Mercurial > emacs

changeset 16096:aa25c2ac018b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 0c87a74b1650
children d4fd600475dc
files src/doprnt.c
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
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