(graft_intervals_into_buffer): When TREE is null,

pass buffer as 2nd arg to reproduce_tree.

1 files changed, 3 insertions, 1 deletions

diff --git a/src/intervals.c b/src/intervals.c
index 0922a074a96..402b96c4e37 100644
--- a/src/intervals.c
+++ b/src/intervals.c
@@ -1114,7 +1114,9 @@ graft_intervals_into_buffer (source, position, buffer)
          simply copy over the interval structure. */
       if ((BUF_Z (buffer) - BUF_BEG (buffer)) == TOTAL_LENGTH (source))
         {
-          buffer->intervals = reproduce_tree (source, tree->parent);
+          Lisp_Object buf;
+          XSET (buf, Lisp_Buffer, buffer);
+          buffer->intervals = reproduce_tree (source, buf);
           /* Explicitly free the old tree here. */
 
           return;