# HG changeset patch
# User Ken Raeburn <raeburn@raeburn.org>
# Date 1026716063 0
# Node ID d50779ef2a76cf1ec67ce0671f79d8734989741f
# Parent  3eb5331c57985d00778d2da2b1bf9c14670e4ba2
* lisp.h (STRING_INTERVALS): Produce rvalue.
(STRING_SET_INTERVALS): New macro.

diff -r 3eb5331c5798 -r d50779ef2a76 src/lisp.h
--- a/src/lisp.h	Mon Jul 15 02:18:31 2002 +0000
+++ b/src/lisp.h	Mon Jul 15 06:54:23 2002 +0000
@@ -687,7 +687,10 @@
 #define STRING_SET_UNIBYTE(STR)      (XSTRING (STR)->size_byte = -1)
 
 /* Get text properties.  */
-#define STRING_INTERVALS(STR)  (XSTRING (STR)->intervals)
+#define STRING_INTERVALS(STR)  (XSTRING (STR)->intervals + 0)
+
+/* Set text properties.  */
+#define STRING_SET_INTERVALS(STR, INT) (XSTRING (STR)->intervals = (INT))
 
 /* In a string or vector, the sign bit of the `size' is the gc mark bit */