From a9bbc680c6670218d38aedb3f75ef81b186ee4b7 Mon Sep 17 00:00:00 2001 From: hayashi Date: Tue, 23 May 2000 05:55:02 +0000 Subject: [PATCH] *** empty log message *** --- semi-def.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 -- 1.7.10.4