Mercurial > emacs

diff lisp/textmodes/outline.el @ 17248:cf25d78ebd75

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(outline-discard-overlays): Fix the case where an overlay extends on both sides of the region.
author Richard M. Stallman <rms@gnu.org>
date Wed, 26 Mar 1997 06:05:58 +0000
parents 9785672a3b84
children 2dfc334bdc6f
line wrap: on
line diff
--- 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)))))