(compact_strings): Add USE_TEXT_PROPERTIES conditional.

1 files changed, 2 insertions, 0 deletions

diff --git a/src/alloc.c b/src/alloc.c
index 93146526118..a411071067f 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -2082,6 +2082,7 @@ compact_strings ()
 	      /* Store the actual size in the size field.  */
 	      newaddr->size = size;
 
+#ifdef USE_TEXT_PROPERTIES
 	      /* Now that the string has been relocated, rebalance its
                  interval tree, and update the tree's parent pointer. */
 	      if (! NULL_INTERVAL_P (newaddr->intervals))
@@ -2091,6 +2092,7 @@ compact_strings ()
 			Lisp_String,
 			newaddr);
 		}
+#endif /* USE_TEXT_PROPERTIES */
 	    }
 	  pos += STRING_FULLSIZE (size);
 	}