From: Ken Raeburn <raeburn@raeburn.org>
Date: Mon, 15 Jul 2002 06:54:23 +0000 (+0000)
Subject: * lisp.h (STRING_INTERVALS): Produce rvalue.
X-Git-Tag: ttn-vms-21-2-B4~14132
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=90b814298ccf27d32e031cf87a6e0ad4676fd469;p=emacs.git

* lisp.h (STRING_INTERVALS): Produce rvalue.
(STRING_SET_INTERVALS): New macro.
---

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 */