diff --git a/src/ChangeLog b/src/ChangeLog
index 60c21694650..cc59d49b699 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,9 @@
 2001-11-07  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
+	* intervals.c (graft_intervals_into_buffer):
+	Remove #ifdef'd-out code.
+	(graft_intervals_into_buffer): Remove unused variable `middle'.
+
 	* lread.c (Feval_region): Remove obsolete #ifdef'd-out
 	code (eval-current-buffer).
 	Change doc-string comments to `new style' [w/`doc:' keyword].
diff --git a/src/intervals.c b/src/intervals.c
index 3e929f7f775..e37b671fd82 100644
--- a/src/intervals.c
+++ b/src/intervals.c
@@ -1680,7 +1680,6 @@ graft_intervals_into_buffer (source, position, length, buffer, inherit)
 {
   register INTERVAL under, over, this, prev;
   register INTERVAL tree;
-  int middle;
 
   tree = BUF_INTERVALS (buffer);
 
@@ -1760,11 +1759,6 @@ graft_intervals_into_buffer (source, position, length, buffer, inherit)
 	= split_interval_left (this, position - under->position);
       copy_properties (under, end_unchanged);
       under->position = position;
-#if 0
-      /* This code has no effect.  */
-      prev = 0;
-      middle = 1;
-#endif /* 0 */
     }
   else
     {