diff src/alloc.c @ 16:0293115a14e9 r19-15b91

Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents 9ee227acff29
children 859a2309aef8
line wrap: on
line diff
--- a/src/alloc.c	Mon Aug 13 08:48:43 2007 +0200
+++ b/src/alloc.c	Mon Aug 13 08:49:20 2007 +0200
@@ -2542,8 +2542,8 @@
       return pure_cons (XCAR (obj), XCDR (obj));
 
     case Lisp_String:
-      return make_pure_string (string_data (XSTRING (obj)),
-			       string_length (XSTRING (obj)),
+      return make_pure_string (XSTRING_DATA (obj),
+			       XSTRING_LENGTH (obj),
 			       XSTRING (obj)->plist,
                                0);