From 48cbe093bb7843d7ef1f19314fd7666a4688d460 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 26 Mar 1997 06:05:58 +0000 Subject: [PATCH] (outline-discard-overlays): Fix the case where an overlay extends on both sides of the region. --- lisp/textmodes/outline.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/textmodes/outline.el b/lisp/textmodes/outline.el index 6116c8116da..3b7ae6c076d 100644 --- a/lisp/textmodes/outline.el +++ b/lisp/textmodes/outline.el @@ -397,7 +397,8 @@ If FLAG is nil then text is shown, while if FLAG is t the text is hidden." (if (> (overlay-end o) end) (let ((o1 (outline-copy-overlay o))) (move-overlay o1 (overlay-start o1) beg) - (move-overlay o (overlay-start o) beg))) + (move-overlay o end (overlay-end o))) + (move-overlay o (overlay-start o) beg)) (if (> (overlay-end o) end) (move-overlay o end (overlay-end o)) (delete-overlay o))))) -- 2.39.2