From: yamaoka <yamaoka>
Date: Tue, 23 May 2000 07:38:48 +0000 (+0000)
Subject: Sync with `emy-1_13'.
X-Git-Tag: wemi-1_13-last-~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6383801eaffc0e528af5b40db2a19cc3baf4aaa6;p=elisp%2Fsemi.git

Sync with `emy-1_13'.
(mime-create-widget-button): Avoid truncating extents.
---

diff --git a/ChangeLog b/ChangeLog
index 45bb54a..9c85472 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2000-05-23  Yoshiki Hayashi  <yoshiki@xemacs.org>
+
+	* semi-def.el (mime-create-widget-button): Avoid truncating
+	extents.
+
 2000-05-22  Katsumi Yamaoka   <yamaoka@jpl.org>
 
 	* semi-def.el (mime-create-xpm-button): Define it if the feature
diff --git a/semi-def.el b/semi-def.el
index 168b5a4..18e2f03 100644
--- a/semi-def.el
+++ b/semi-def.el
@@ -77,7 +77,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))))
   (insert "\n"))