X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fextents.c;h=be980e98133742883f8d494167b8e917a6eb1186;hb=1a1aa5f685a384c2798f6e1dcb75132059acbd49;hp=ced0424cab4627b4c579d989d5fc3dfdb6833896;hpb=ee38d21b330f5001b47a577cefb5ba7b82a3b7d3;p=chise%2Fxemacs-chise.git.1

diff --git a/src/extents.c b/src/extents.c
index ced0424..be980e9 100644
--- a/src/extents.c
+++ b/src/extents.c
@@ -1175,11 +1175,12 @@ detach_all_extents (Lisp_Object object)
 	      set_extent_start (e, -1);
 	      set_extent_end (e, -1);
 	    }
+
+	  /* But we need to clear all the lists containing extents or
+	     havoc will result. */
+	  extent_list_delete_all (data->extents);
 	}
 
-      /* But we need to clear all the lists containing extents or
-	 havoc will result. */
-      extent_list_delete_all (data->extents);
       soe_invalidate (object);
     }
 }