From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 22 Jul 1993 08:06:55 +0000 (+0000)
Subject: (graft_intervals_into_buffer): When TREE is null,
X-Git-Tag: emacs-19.34~11628
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b8e4857c8119527360091b3f8274a7b24c08d686;p=emacs.git

(graft_intervals_into_buffer): When TREE is null,
pass buffer as 2nd arg to reproduce_tree.
---

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;