Mercurial > emacs
comparison lisp/textmodes/outline.el @ 17248:cf25d78ebd75
(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 |
comparison
equal
deleted
inserted
replaced
| 17247:351006378b51 | 17248:cf25d78ebd75 |
|---|---|
| 395 ;; or delete it entirely (if it is contained in beg...end). | 395 ;; or delete it entirely (if it is contained in beg...end). |
| 396 (if (< (overlay-start o) beg) | 396 (if (< (overlay-start o) beg) |
| 397 (if (> (overlay-end o) end) | 397 (if (> (overlay-end o) end) |
| 398 (let ((o1 (outline-copy-overlay o))) | 398 (let ((o1 (outline-copy-overlay o))) |
| 399 (move-overlay o1 (overlay-start o1) beg) | 399 (move-overlay o1 (overlay-start o1) beg) |
| 400 (move-overlay o (overlay-start o) beg))) | 400 (move-overlay o end (overlay-end o))) |
| 401 (move-overlay o (overlay-start o) beg)) | |
| 401 (if (> (overlay-end o) end) | 402 (if (> (overlay-end o) end) |
| 402 (move-overlay o end (overlay-end o)) | 403 (move-overlay o end (overlay-end o)) |
| 403 (delete-overlay o))))) | 404 (delete-overlay o))))) |
| 404 (setq overlays (cdr overlays)))))) | 405 (setq overlays (cdr overlays)))))) |
| 405 | 406 |