From 90b814298ccf27d32e031cf87a6e0ad4676fd469 Mon Sep 17 00:00:00 2001
From: Ken Raeburn <raeburn@raeburn.org>
Date: Mon, 15 Jul 2002 06:54:23 +0000
Subject: [PATCH] * lisp.h (STRING_INTERVALS): Produce rvalue.
 (STRING_SET_INTERVALS): New macro.

---
 src/lisp.h | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/lisp.h b/src/lisp.h
index ca8cd9835ee..1dd66c95f50 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -687,7 +687,10 @@ extern int string_bytes P_ ((struct Lisp_String *));
 #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 */
 
-- 
2.39.5