From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 26 Nov 2001 02:16:59 +0000 (+0000)
Subject: (graft_intervals_into_buffer):
X-Git-Tag: ttn-vms-21-2-B4~18156
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=201ffa579a8caaf0eaf71a8ba66d509c649e437c;p=emacs.git

(graft_intervals_into_buffer):
Don't call set_text_properties_1 on an empty interval.
---

diff --git a/src/intervals.c b/src/intervals.c
index b55cd64e45e..c1a088b1065 100644
--- a/src/intervals.c
+++ b/src/intervals.c
@@ -1690,7 +1690,7 @@ graft_intervals_into_buffer (source, position, length, buffer, inherit)
   if (NULL_INTERVAL_P (source))
     {
       Lisp_Object buf;
-      if (!inherit && ! NULL_INTERVAL_P (tree))
+      if (!inherit && !NULL_INTERVAL_P (tree) && length > 0)
 	{
 	  XSETBUFFER (buf, buffer);
 	  set_text_properties_1 (make_number (position),