# HG changeset patch
# User Ken Raeburn <raeburn@raeburn.org>
# Date 1026699218 0
# Node ID e7289ef367d8ea286e1ba9343932e3864fb219f7
# Parent  3388738bcc9c18c6f7676149119f26baab9393c7
* lisp.h (STRING_SET_CHARS): New macro.
(SCHARS, SBYTES): Produce rvalues.

diff -r 3388738bcc9c -r e7289ef367d8 src/lisp.h
--- a/src/lisp.h	Mon Jul 15 00:01:34 2002 +0000
+++ b/src/lisp.h	Mon Jul 15 02:13:38 2002 +0000
@@ -543,8 +543,11 @@
 
 #define SREF(string, index)	XSTRING (string)->data[index]
 #define SDATA(string)		XSTRING (string)->data
-#define SCHARS(string)		XSTRING (string)->size
-#define SBYTES(string)		STRING_BYTES (XSTRING (string))
+#define SCHARS(string)		(XSTRING (string)->size + 0)
+#define SBYTES(string)		(STRING_BYTES (XSTRING (string)) + 0)
+
+#define STRING_SET_CHARS(string, newsize) \
+    (XSTRING (string)->size = (newsize))
 
 
 /* Basic data type for use of intervals.  See the macros in intervals.h.  */