changeset 46377:d50779ef2a76

* lisp.h (STRING_INTERVALS): Produce rvalue. (STRING_SET_INTERVALS): New macro.
author Ken Raeburn <raeburn@raeburn.org>
date Mon, 15 Jul 2002 06:54:23 +0000
parents 3eb5331c5798
children ef7dc46ecd0b
files src/lisp.h
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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 */