Sync with `emy-1_13'.

(mime-create-widget-button): Avoid truncating extents.

diff --git a/ChangeLog b/ChangeLog
index 45bb54a..9c85472 100644 (file)
--- 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 (file)
--- 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"))