# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 859356358 0
# Node ID cf25d78ebd7523e1abde1f5cb45fd4e06f1dae8a
# Parent  351006378b512dff1a876bcdaf2aa00704ed0e8a
(outline-discard-overlays): Fix the case
where an overlay extends on both sides of the region.

diff -r 351006378b51 -r cf25d78ebd75 lisp/textmodes/outline.el
--- a/lisp/textmodes/outline.el	Tue Mar 25 03:52:53 1997 +0000
+++ b/lisp/textmodes/outline.el	Wed Mar 26 06:05:58 1997 +0000
@@ -397,7 +397,8 @@
 		  (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)))))