From 6383801eaffc0e528af5b40db2a19cc3baf4aaa6 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 23 May 2000 07:38:48 +0000 Subject: [PATCH] Sync with `emy-1_13'. (mime-create-widget-button): Avoid truncating extents. --- ChangeLog | 5 +++++ semi-def.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 45bb54a..9c85472 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2000-05-23 Yoshiki Hayashi + + * semi-def.el (mime-create-widget-button): Avoid truncating + extents. + 2000-05-22 Katsumi Yamaoka * 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")) -- 1.7.10.4