(outline-flag-region): Use front-advance.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5c2ffe504d0010521ddc3afc2819b61dc88199bd..58bd6a36f350377b7e061c54986a4df9efd29534 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2007-09-08  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * outline.el (outline-flag-region): Use front-advance.
+
 2007-09-07  Ilya Zakharevich  <ilyaz@cpan.org>
 
        * progmodes/cperl-mode.el: Merge upstream 5.23.

diff --git a/lisp/outline.el b/lisp/outline.el
index 6eabd8f3d0252ad49f427628553a90bf7ed04cc2..92e521afc9f3bc6732ea31406a9663d963b30646 100644 (file)
--- a/lisp/outline.el
+++ b/lisp/outline.el
@@ -712,7 +712,10 @@ If nil, `show-entry' is called to reveal the invisible text.")
 If FLAG is nil then text is shown, while if FLAG is t the text is hidden."
   (remove-overlays from to 'invisible 'outline)
   (when flag
-    (let ((o (make-overlay from to)))
+    ;; We use `front-advance' here because the invisible text begins at the
+    ;; very end of the heading, before the newline, so text inserted at FROM
+    ;; belongs to the heading rather than to the entry.
+    (let ((o (make-overlay from to nil 'front-advance)))
       (overlay-put o 'invisible 'outline)
       (overlay-put o 'isearch-open-invisible
                   (or outline-isearch-open-invisible-function