From: hayashi <hayashi>
Date: Tue, 23 May 2000 05:55:02 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: emy-1_13_7~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a9bbc680c6670218d38aedb3f75ef81b186ee4b7;p=elisp%2Fsemi.git

*** empty log message ***
---

diff --git a/semi-def.el b/semi-def.el
index bb0de92..a71e2f5 100644
--- a/semi-def.el
+++ b/semi-def.el
@@ -94,7 +94,9 @@ provided or the TTY frame is used."
 	    extent)
 	(insert "[" string "]")
 	(while (setq extent (extent-at start nil nil extent))
-	  (set-extent-endpoints extent end (point)))
+	  ;; Avoid removing extents of next part.
+	  (if (eq (extent-end-position extent) end)
+	      (set-extent-endpoints extent end (point))))
 	(delete-region start end)))
     (add-text-properties start (point)
 			 (list 'start-open t