From a4bb85d9577e0454e01abe596f92b152007c0d9f Mon Sep 17 00:00:00 2001 From: Sylvain Chouleur Date: Wed, 15 Jan 2014 00:38:55 +0100 Subject: [PATCH] Fix org-outline-overlay-data marker insertion-type * org.el: Set the insertion-type of bounds markers of org-outline-overlay-data to t (means marker advances when you insert text at it) This is to conserve outline visibility property when changes are made at the bounds of the data. For example: try org-babel-execute-subtree on a folded outline: The new result will be shown after the folded part of the outline whereas the outline body should not be visible. --- lisp/org.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index a53597e477e2..fc0f0ccb7125 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -7191,8 +7191,12 @@ If USE-MARKERS is set, return the positions as markers." end (overlay-end o)) (and beg end (> end beg) (if use-markers - (cons (move-marker (make-marker) beg) - (move-marker (make-marker) end)) + (let ((bound + (cons (move-marker (make-marker) beg) + (move-marker (make-marker) end)))) + (set-marker-insertion-type (car bound) t) + (set-marker-insertion-type (cdr bound) t) + bound) (cons beg end))))) (overlays-in (point-min) (point-max)))))))) -- 1.8.5.2