(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);
         }